Даны два числа a и b. Найти их среднее арифметическое: (a + b)/2. блок схемой

var x,y,nod,nok: longint;

begin

read(x,y);

a: =x; b: =y;

while (a> 0) and (b> 0) do

if a> b then a: =a mod b

else b: =b mod a;

nod: =a+b;

nok: =(x div nod)*y;

write(nok);

end;

заяц или

var h,a: integer;

begin

  a: =1;

  repeat

      h: = h+3;

      a: =2*a;

      writeln('прошло часов - ',h,', амеб - ',a)

  until h> =30;

  readln;

end.

таких тем много.

я предлагаю такие:

1) интересные события ( в мире, в стране, в

2) знаменитости и интересные факты о них.

3) все о писателях, поэтах и т.д.

4) наш дружный класс.

5) наш родной город.

6) наши одноклассники ( все о них)

7) наши учителя

вот к примеру такие. надеюсь тебе хватит)