program raf105;
var a,b,s,p:integer;
begin
write('Введите длину и ширину участка через пробел: ');
readln(a,b);
s:= a*b;
p:= (a+b)*2;
writeln('Площадь участка: ',s,' м²');
writeln('Длина забора: ',p,' м');
end.
Программа написана на языке PascalABC.NET
program raf105;
var a,b,s,p:integer;
begin
write('Введите длину и ширину участка через пробел: ');
readln(a,b);
s:= a*b;
p:= (a+b)*2;
writeln('Площадь участка: ',s,' м²');
writeln('Длина забора: ',p,' м');
end.
Программа написана на языке PascalABC.NET