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

81920 бит : 8 = 10240 байт

10240 байт : 1024 = 10 килобайт

на pascal:

program sonik;

uses crt;

var a,b,c: string;

begin

readln (a);   readln (b);   readln (c);

writeln (' фигуры: ',a,b,c);

end.

4 клетки вниз и 7 вправо                                                                                                                           

var kol,a,b,c: longint;

begin

  read(a,b,c);

  if a< 0 then kol: =kol+1;

  if b< 0 then kol: =kol+1;

  if c< 0 then kol: =kol+1;

  write(kol);

end.