program obliczenia;
uses crt;

  var { deklaracja zmiennych }
    wybor: integer;
    
    begin
 repeat

     clrscr;
     writeln('Program oblicza pola:');
     writeln('1) trojkata');
     writeln('2) prostokata');
     writeln('3) kola');
     writeln('co liczymy ?:');
     readln(wybor);

     if wybor =1 then
     begin
     write('1');
     readln;
     end;

     if wybor = 2 then
     begin
     write('2');
     readln;
     end;

     if wybor=3 then
     begin
     write('3');
     readln;
     end ;





 until wybor<4 ;
  write('wyszedl z petli');
  readln;
 end.