Program Pl;
var a,b:real;
begin
write('Сторона а=');
readln(a);
write('Сторона b=');
readln(b);
writeln('Периметр прямоугольника = ', a*2+b*2);
writeln('Площадь прямоугольника = ', a*b, ' кв. см')
End.
Внимание! Если программа не работает, обновите версию PascalABC.NET !
begin
var (a,b):=readreal2('Введите стороны :');
var (c,d):=readreal2('Введите основания :');
var h:=readreal('Введите высоту :');
var S:=((c+d)/2)*h;
writeln('S=',S);
var P:=a+b+c+d;
writeln('P=',P);
end.
Ответ:
Устройства ввода информации
Объяснение: