Пример теста:
0.5; 0.6 — 2
-1.2; -1.3 — 1
2.6; 3 — 0
var x,y:real;
z:byte;
begin
writeln('введите координаты');
readln(x);
readln(y);
if x*x+y*y<=1 then z:=2
else if x*x+y*y<=4 then z:=1
else z:=0;
writeln('ваш результат ',z);
readln;
end.
Компиляция и выполнение
Free Pascal Compiler version 2.6.2-8 [2014/01/22] for x86_64
Copyright (c) 1993-2012 by Florian Klaempfl and others
Target OS: Linux for x86-64
Compiling main.pas
Linking a.out
11 lines compiled, 0.1 sec
/usr/bin/ld.bfd: warning: link.res contains output sections; did you forget -T?
введите координаты
0.6
0.7
ваш результат 2