Программа:
Pascal:
const N = 4;
var i: integer;
arr: array[1..N] of integer;
begin
for i := 1 to N do readln(arr[i]); // ввод массива с клавиатуры
writeln(arr); // вывод массива
end.
const N - задайте сами. По условию нужно написать число букв имени и фамилии.
