Нарисуйте блок схему, как указано в задании.

друг сказал) если не правильно извини, но он вродь хорош в информе

var

a,b: real;

begin

readln(a,b);

if (a> 0) or (b< -2) then

writeln('истинно')

else

writeln('ложно');

end.

а) наименование товаров, цена за единицу товара, количество каждого товара

б) общая сумма покупки, сумма денег переданная продавцу

в) программа телепередач, название фильма

г) набор значений углов и сторон треугольника, должна быть известна хотя бы одна сторона треугольника и еще две величины(углы или стороны)

var s,r: real;

begin

  read(r);

  s: =pi*sqr(r);

  writeln(s: 0: 4);

end.