Program pole; uses Crt; var x,y:integer; a:char; begin writeln('Czy chcesz policzyć pole prostokata? T/N'); readln(a); a:=upcase(a) ; if a='T' then begin writeln('Podaj dlugosc 1 boku'); readln(x); writeln('Podaj dlugosc 2 boku'); readln(y); writeln('Pole prostokata o bokach ',x,' i ',y,' podzielone przez Pi wynosi ',x*y/Pi:2:2); readln; end else writeln('To na razie'); readln; End.
Program pole;
uses Crt;
var x,y:integer;
a:char;
begin
writeln('Czy chcesz policzyć pole prostokata? T/N');
readln(a);
a:=upcase(a) ;
if a='T' then
begin
writeln('Podaj dlugosc 1 boku');
readln(x);
writeln('Podaj dlugosc 2 boku');
readln(y);
writeln('Pole prostokata o bokach ',x,' i ',y,' podzielone przez Pi wynosi ',x*y/Pi:2:2);
readln;
end
else
writeln('To na razie');
readln;
End.