var
pindala,umbermoot,P,S:real;
r,i:integer;
vastus:string;
begin
randomize;
r:=random(10);
repeat
   writeln(r);
   writeln('arvuta pindala');
   readln(pindala);
   writeln('arvuta umbermoot');
   readln(umbermoot);
until ( pindala=3.14*sqr(r)) and (umbermoot=2*3.14*r);
readln;
end.