Odpowiedzi

2009-04-19T11:05:41+02:00
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.