1.Вывести в столбик 10 раз слово рота 2. Вывести в

1:

--

program l;

var n:integer;

begin

for n:=1 to 10 do

writeln('Рота');

end.

--

program l;

var

 n, i: integer;

begin

 writeln('Введите n:');

 readln(n);

 for n := 0 to n do

 begin

   i := n * n;

 end;

 writeln(n,'в квадрате: ',i);

end.

--

3:

program l;

var i,n:integer;

begin

for n:=1 to 6 do

begin

i:=456*n;

Writeln(n,'фунт(-а) это ',i, 'гр.');

end;

end.