//Paweł Zemliński

program egzamin;

uses graph, crt;

var
w:char;

procedure wczytaj();
var
dlugosc:integer;
begin
     writeln('Podal dlugosc boku kwadratu w pikselach z przedzialu od 10 do 200 =:');

     repeat
           readln(dlugosc);
           if ((dlugosc<10) OR (dlugosc>200)) then
           begin
                writeln('Podano bledne wartosci prosze je skorygowac!');
                writeln('Podal dlugosc boku kwadratu=');
           end;
     until((dlugosc>=10) AND (dlugosc<=200));

     writeln('Dlugosc boku kwadratu wynosi ',dlugosc,' piksele');
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.