program count;
var a, b, s, p: real;
begin
writeln (‘Введите значения длин двух сторон прямоугольника‘ );
readln (a, b);
s := a * b;
writeln (‘Площадь равна ‘, s);
р := 2 * (a+b);
writeln (‘Периметр равен’, р);
end.
program count;
var a, b, s, p: real;
begin
writeln (‘Введите значения длин двух сторон прямоугольника‘ );
readln (a, b);
s := a * b;
writeln (‘Площадь равна ‘, s);
р := 2 * (a+b);
writeln (‘Периметр равен’, р);
end.