Program puntktsUnfigura;
uses crt;
var r, c, x, y: real;
begin
repeat
    clrscr;
    write ('Programma noskaidro, vai punkts atrodas rinka ');
    writeln ('iekspuse, uz linijas vai arpuse');
    writeln;
    write ('Ievadiet rinka radiusu: ');
    readln(r);
    write ('Ievadiet punkta koordinatu X: ');
    readln (x);
    write ('Ievadiet punkta koordinatu Y: ');
    readln (y);
    writeln;
        c:=sqrt((x*x)+(y*y));
    if (c=r) then writeln ('Punkts (',x:0:2,';',y:0:2,') ir uz linijas.') else
        if (r>=c) then writeln ('Punkts (',x:0:2,';',y:0:2,') ir iekspuse.')
            else writeln ('Punkts (',x:0:2,';', y:0:2,') ir arpuse.');
   readkey;
until x=00;
end.