Nazwa forum

{(c)2009 by s4l3nz4 xD}

program safd;
uses crt;
var
pole: integer;
a,b,c,d,e:real;

begin
writeln('1. tr˘jkĄt');
writeln('2. kwadrat');
readln(pole);

case pole of
1:begin
writeln('podaj a');
readln(b);
writeln('podaj h');
readln(c);
writeln('pole tr˘jkĄta to:',(b*c)/2:2:0);
readln;
end;

2:begin
writeln('podaj a');
readln(a);
writeln('pole kwadratu to:',a*a:2:0);
readln;
end;

end;
end.