Program Ploshad;var a,h,S: real;BeginWriteln('Введите высоту');Readln(h);Writeln('Введите сторону, на которую опущена высота');Readln(a);S:=(a*h)/2;Writeln('Площадь параллелограмма= ',S);end.
Program Ploshad;
var a,h,S: real;
Begin
Writeln('Введите высоту');
Readln(h);
Writeln('Введите сторону, на которую опущена высота');
Readln(a);
S:=(a*h)/2;
Writeln('Площадь параллелограмма= ',S);
end.