Pola figur

program polaf;
uses crt;
var a,b,h,r:real;
odp:char;
wyb:integer;
procedure trojkat;
begin
writeln('Podaj dlugosc podstawy: ');readln(a);
writeln('Podaj wyskosc: '); readln(h);
if (a>0)and(h>0) then writeln('Pole trojkata wynosi: ',a*h/2:6:2)
                 else writeln('Wprowadzono nieprawidlowe dane! ');
                 readkey;
end;
procedure trapez;
begin
write('Podaj dlugosc jednej podstawy : '); readln(a);
write('Podaj dlugosc drugiej podstawy : '); readln(b);
write('Podaj wysokosc: '); readln(h);
if (a>0)and(b>0)and(h>0) then writeln('Pole trapezu wynosi: ',(a+b)*h/2:6:2)
                         else writeln('Wpisales zle dane! ');
                         readkey;
                         end;
procedure kolo;
begin
write('podaj promien : '); readln(r);
writeln('Pole wynosi: ', Pi*r*r:6:2);
readkey;
end;
begin
repeat
clrscr;
writeln('Progam oblicza pola figur plaskich');
writeln;
writeln('1.Pole trojkata '      );
writeln('2.Pole trapezu  ');
writeln('3.Pole kola ');
writeln('4.Koniec ');
writeln;
writeln('Twoj wybor :'); readln(wyb);
case wyb of
1: trojkat;
2: trapez ;
3: kolo   ;
4:        ;
else writeln('Podaj wartosc od 1 do 4 ');
end;
until wyb=4;
end.