SMPascal

program figura_var26;

uses crt;

var R, X, Y, Rinkis, Trijsturis: real;

BEGIN
ClrScr;

writeln('Ievadiet (X;Y) koordinates: ');
readln(X, Y);

R:=1.5;
Rinkis:=ROUND(SQRT(SQR(Y)+SQR(X))*1000)/1000;
Trijsturis:=ROUND((-1*X-1.5)*1000)/1000;

  if (Y <= 1.5) AND (X >= -3) AND (X <= 0) AND (ROUND(Y*1000)/1000 >= Trijsturis)
  OR (ROUND(R*1000)/1000 >= Rinkis) AND (X>=0) then
    if (Y = 1.5) OR (X = -3) OR ( ROUND(Y*1000)/1000 = Trijsturis)
     OR (ROUND(R*1000)/1000 = Rinkis) AND (x>0)then
      write('Punkts atrodas uz figuras robezlinijas')
    else
      write('Punkts atrodas figuras ieksa')
  else
    write('Punkts atrodas figuras arpuse');

ReadKey;
END.