Lab3_4a

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.