Запросить с клавиатуры натуральное число n. используя циклы, вывести через пробел n раз на экран цифру 1.

program srednball;

var a,b,d : integer;

        c : real;

begin

    writeln (' vvedite balli, nabrannie sportsmenom po 3 vidam sporta');

    readln (d);

    readln (a);

    readln (b);

    c: =(a+b+d)/3;

    writeln (' srednii ball= ', c: 4: 2);

    readln;

end.

объединение северного и южного египта произошло около 3000 г. до н.э.