//Paweł Zemliński

program egzamin;

uses graph, crt;

var
w:char;

procedure wczytaj();
var
dlugosc:integer;
begin
     repeat
           writeln('Podal dlugosc boku kwadratu w pikselach z przedzialu od 10 do 200 =:');
           readln(dlugosc);
           if ((dlugosc<10) OR (dlugosc>200)) then writeln('Podano zla wartosc!');
     until((dlugosc>=10) AND (dlugosc<=200));
end;

begin
     repeat
           writeln('w - wczytywanie dlugosci boku kwadratu');
           writeln('o - obliczanie promienia kola opisanego na kwadracie');
           writeln('r - rysunek');
           writeln('q - wyjscie z programu');
           writeln('Wybieraj...');
           readln(w);

           case w of
           'w' : wczytaj();

           end;

     until(w='q');

     writeln('Do zobaczenia');
     readln;
end.