Program ploshad; uses crt; var a,b,c:real; begin write('a= '); readln(a); write('b= '); readln(b); If (a<=0)or(b<=0) then write('Сторона не может быть отрицательной, либо равна нулю') else c:=a*b; writeln('Площадь квадрата, с заданными параметрами равна - ',c); c:=a*b/2; writeln('Площадь прямоугольного треугольника, с заданными параметрами равна - ',c); end.
Это лишь для квадрата и прямоугольного треугольника :-)
uses crt;
var a,b,c:real;
begin
write('a= ');
readln(a);
write('b= ');
readln(b);
If (a<=0)or(b<=0) then
write('Сторона не может быть отрицательной, либо равна нулю')
else
c:=a*b;
writeln('Площадь квадрата, с заданными параметрами равна - ',c);
c:=a*b/2;
writeln('Площадь прямоугольного треугольника, с заданными параметрами равна - ',c);
end.
Это лишь для квадрата и прямоугольного треугольника :-)