1. Напишите процедуру, которая будет печатать на экране изображенный символами.

var i, j, k: byte;

begin

for i := 1 to 4 do

for j := 1 to i do

begin

for k := 1 to j do write(k, ' ');

writeln

end;

readln

end.

a = int(input('Сколько раз напечатать изображение?'))

p1 = '     ^^                    '

p2 = '    ()       #       '

p3 = '            #      '

p4 = '              '

p5 = '              '

p6 = '         #          #      '

p7 = '        ==          ==     '

p8 = ''

print(p1*a)

print(p2*a)

print(p3*a)

print(p4*a)

print(p5*a)

print(p6*a)

print(p7*a)

print(p8*a)

1.

program xxx;

var i, n : integer

begin

  writeln ('введите число n=');

  readln (n);

  writeln ('делители числа: ');

  for i: = 1 to n do

      if n mod i = 0 then writeln (i);

  readln

end.

program first;

var z,d,k: integer;

begin

writeln('input z,d,k');

readln(z,d,k);

if (d> =z) then

d: =d-z

k: =k+1

writeln(d,'    ',k);

readln;

end.