program obliczanie_obwodu_prostokata;
uses crt;
var a,b: real;
begin
clrscr;
writeln('Obliczanie obwodu prostokata');
write('Podaj dlugosc boku a= ');
readln(a);
write('Podaj dlugosc boku b=');
readln(b)
write('Obwod prostokata = ', 2*a+2*b);
readln;
end.