Информатика Урок 7: Художник: Циклы
4 номер

  держи:

program kk; uses crt; var a: array [1..5,1..5] of integer; i,j: integer;   beginclrscr; randomize; for i: =1 to 5 dobeginfor j: =1 to 5 doa[i,j]: = random(90)+10; end; for i: =1 to 5 dobeginfor j: =1 to 5 do write(a[i,j],' '); writelnend; writeln; writeln; for i: =1 to 5 dobeginfor j: =1 to 5 dobegin  if (a[i,j] > 0) and (a[i,j] mod 3 = 0) thenbeginwriteln(a[i,j],' [',i, ',',j,']'); end; end; end; readkey; end. 

если не считать пропущенное равно, то нужна разница квадратов в и а

integer,byte,real,long, short и еще какие-то но вряд ли будешь их использовать

var a,b: integer;

begin

  read(a,b);

  writeln(a,'> ',b,' - ', a> b);

  writeln(a,'< ',b,' - ', a< b);

  writeln(a,'=',b,' - ', a=b);

  read(a,b);

  writeln('sotrudnik podhodit - ', (a> =3) and (b< =35));

end.