Program Lab3;
var
a, b: integer;
S, P: real;
begin
writeln('vvedit vysotu: a = ');
read(a);
writeln('vvedit shyrynu: b = ');
read(b);
S := a * b;
P := 2 * a + 2 * b;
writeln();
writeln('plosha dorivnue:');
writeln('S = ', S:2:1);
writeln('perimetr dorivnue:');
writeln('P = ', P:2:1);
end.