1. //Paweł Zemliński
2.  
3. program egzamin;
4.  
5. uses graph, crt;
6.  
7. var
8. w:char;
9.  
10. procedure wczytaj();
11. var
12. dlugosc:integer;
13. begin
14.      writeln('Podal dlugosc boku kwadratu w pikselach z przedzialu od 10 do 200 =:');
15.  
16.      repeat
17.            readln(dlugosc);
18.            if ((dlugosc<10) OR (dlugosc>200)) then
19.            begin
20.                 writeln('Podano bledne wartosci prosze je skorygowac!');
21.                 writeln('Podal dlugosc boku kwadratu=');
22.            end;
23.      until((dlugosc>=10) AND (dlugosc<=200));
24.  
25.      writeln('Dlugosc boku kwadratu wynosi ',dlugosc,' piksele');
26. end;
27.  
28. begin
29.      repeat
30.            writeln('w - wczytywanie dlugosci boku kwadratu');
31.            writeln('o - obliczanie promienia kola opisanego na kwadracie');
32.            writeln('r - rysunek');
33.            writeln('q - wyjscie z programu');
34.            writeln('Wybieraj...');
35.            readln(w);
36.  
37.            case w of
38.            'w' : wczytaj();
39.  
40.            end;
41.  
42.      until(w='q');
43.  
44.      writeln('Do zobaczenia');
45.      readln;
46. end.