2. Начертите в тетради блок-схему вычисления площади параллелограмма S по стороне аи высоте һ. Значения а и һ- это исходные данные, их требуется ввести, S- результат работы алгоритма, его требуется вывести 3. Начертите в тетради блок-схему решения уравнения ax + b = 0. Значения аир - это исходные данные, их требуется ввести, х- результат работы алгоритма, его требуется вывести

1. так напишу:

program s_parallelogramm;

var

a,h,s: real;

begin

write('Основание = '); readln(a);

write('Высота = '); read(h);

if ((a=0) or (a<0)) or ((h=0) or (h<0)) then writeln('Ошибка! Значения основания и высоты должно быть натуральными числами')

else

begin

s:=a*h;

writeln('Площадь (S) параллелограмма = ', s);

end;

end.

2) //PascalABC.Net

//NaaMan

var

a,b : real;

begin

write('Введите А и В: ');

readln(a,b);

if (a=0) then

writeln('Корень отсутствует')

else

writeln('Корень ', -b / a)

end.