Информация об учёном который писал двоичная система счисления цифрами 01 и его рождения и смерти римскую систему счисления перевести

// F#
[<EntryPoint>]
let main argv =
    let elements =
        System.Console.ReadLine().Split(' ')
        |> Seq.map (fun x -> System.Int32.Parse x)
        |> Seq.mapi (fun i x -> (x, i))
        |> Seq.where (fun (x, i) -> x % 2 = 0)
    if elements |> Seq.length > 0
        then System.Console.WriteLine("{0} {1}", elements |> Seq.last |> fst, (elements |> Seq.last |> snd) + 1)
        else System.Console.WriteLine("No results")
    System.Console.ReadKey true |> ignore
    0

1)
var
    s: string[6];
    n: integer;

begin
    s := 'отлично';
    n := length(s);
    writeln(length('отлично'));
    writeln(n);
end.

Изначально выставлен тип string[6], значит если присвоить строку больше, то ее обрежет по 6 символов, вот и весь прикол
ответ 6

2) рисунок

3)var
    s, s1: string;
    n: integer;

begin
    s := 'информатика';
    s1 := copy(s, 3, 5);
    n := pos(s, s1);
    writeln('s=', s);
    writeln('s1=', s1);
    writeln('n=', n);
end.

Вывод
s=информатика
s1=форма
n=0

Все верно, в s1 не содержится s, а наоборот