с информатикой 8 класс цикл пока!

1.

var

  a: integer;

begin

  readln(a);

  if ((a mod 10) mod 2 = 0) and ((a mod 100) mod 2 = 0) then writeln('да')

  else writeln('нет');

end.

2.

var

  a, max: integer;

begin

  readln(a);

  max : = -1;

  while a < > 0 do

  begin

    if ((a mod 10) mod 2 = 0) and ((a mod 10) mod 2 > max) then max : = (a mod 10) mod 2;

    a : = a div 10;

  end;

  if max < > -1 then writeln(max)

  else writeln('');

end.

3.

var

  mas: array[0..19] of integer;

  sum, i: integer;

begin

  randomize;

  sum : = 0;

  for i : = 0 to 19 do  

  begin

    mas[i] : = -45 + random(1 + 45 + 55);

    if (mas[i] mod 2 = 0) and (mas[i] > 0) then sum += mas[i];

  end;

  writeln(sum);

end.

1. начало(в овале)

ввод a,b,min (в паралелограмме)

a<b (в ромбе)

2 стрелки, первая стрелка "нет" и в прямоугольнике min:=b

вторая стрелка "да" и в прямоугольнике min:=a

вывод min (в паралелограмме)

конец(в овале)

2.начало(в овале)

ввод a,b, c, min (в паралелограмме)

a<b (в ромбе)

2 стрелки, первая стрелка "нет" и в прямоугольнике min:=b

вторая стрелка "да" и в прямоугольнике min:=a

min<c (в ромбе)

2 стрелки, первая стрелка "нет" и в прямоугольнике min:=c

вторая стрелка сразу к выводу

вывод min (в паралелограмме)

конец(в овале)