Дайте идею: на тему: 1) 9 мая 2) 8 марта хочу сделать мультик а идеи на 2 (выше) темы !

Мультфильм про самых лучших мам или учительниц: *

в первом пункте   не хватает кавычек, ну и в условиях скобки не помешают   то есть:

  1)    if   (b=0) then writeln('деление на нуль невозможно');

  2)       if (a > b) then max: = a else max: = b;

 

  3)     if (a> b) and (b> 0) then c: =a+b else writeln(‘no’);

4)     if (a < b) then min : = a  else min : = b;

 

5)     if (a > b) then max: = b else max: = a;

6)       if ((a> b) and (b> 0)) then c: =a+b ;

 

 

 

program matr22;  

uses crt;

type matrix=array[1..5,1..5] of integer;

var m: matrix;

          n: byte;

 

 

procedure auto; var i,j: integer; begin

n: =0; randomize;   for i: =1 to 5 do begin  for j: =1 to 5 do begin      m[i,j]: =random(50)+5;

      if (m[i,j]=22) then n: =n+1; end; end; end;  

 

 

procedure printmatrix(mas: matrix; ); var j,k: integer; begin  for k: =1 to 5 do begin  for j: =1 to 5 do begin  write(mas[k,j]: 3); end; writeln; end; end;

 

 

begin

      clrscr;

      auto;

      printmatrix(m);

      writeln;

      writeln('количество элементов равных 22: ',n);

      readkey;  

end.