//Paweł Zemliński

program egzamin;

uses graph, crt;

var
w:char;
dlugosc:integer;
promien:real;

procedure wczytaj();
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;

procedure opisz();
begin
     Clrscr();
     promien:=(sqrt(2)*dlugosc)/2;

     writeln('Promien okregu opisanego na kwadracie o boku ',dlugosc,' wynosi = ',promien:0:2,' piksela');
     readln();
end;

procedure rysuj();
var
gm,dm:smallint;
srednica:integer;
begin
     gm:=d8bit; dm:=m800x600;
     initgraph(gm,dm,' ');

     srednica:=Round(promien)*2;

     writeln(srednica);

     Circle(400,300,srednica);
     line(400,300,dlugosc+400,300);
     line(400,300,dlugosc,300);
     //line();
     //line();

     readln();
     closegraph();
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();
           'o' : opisz();
           'r' : rysuj();
           end;

     until(w='q');

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