Lab3_4a

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
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.