FPS padekit del uzdavinio

Salyga: Duotos priešingų kampų koordinatės: kairiojo viršutinio kampo (x1, y1) ir dešinio apationio kampo (x2, y2) ir n taškų, kurių koordinatės žinomos. Nustatykite, ar taškai yra stačiakampio viduje. Užrašykite atitinkamą tekstą.Ačiu iš anksto.

Elementarus uždavinys.

Pasakyk kokios dalies realizavimo nesupranti (įvedimo, duomenų apdorojimo, skaičiavimų, išvedimų) - padėsim. ;)

program Noname36;

function Ar_viduje(x, y:integer):boolean;
var x1, y1,
   x2, y2:integer;
begin
x1 := 0; y1 := 10;  //Kairiojo virsutinio krasto koordinates
x2 := 10; y2 := 0;  //Desiniojo apatinio krasto koordinates

if (x <= x2) and (x >= x1) and (y >= y2) and (y <= y1) then Ar_viduje := true else Ar_viduje := false;

end;

var i:integer;
   x, y:integer;
begin
for i:= 0 to 99 do
   begin
   write('Tasko koordinates (x;y) : '); readln(x, y);
   if Ar_viduje(x, y) = true then writeln('Taskas (', x, ';', y, ') priklauso kvadratui')
                             else writeln('Taskas (', x, ';', y, ') nepriklauso kvadratui');
   end;
readln;
end.

Gali persidaryt kaip tau geriau...

Aciu :rolleyes: