program szakasz_rajzolo;
uses s;
begin
  szakasz(500,300,50,70);
  writeln('Gyokketto: ',hatv(2,0.5):6:2);
  negyzet(10,100,420,400);
  readln
end.