Программа на паскале

[SonicSax]

Прошу помочь,а то совсем не получается
Задача:
Написать программу,которая определяет,попадает ли точка с заданными координатами в облость,закрашенную на рисунке серым цветом.Результат вывести в текстовом виде.
Наработки:

program lab;
uses Crt;
var x,r,y:real;  t,z:boolean;
begin
clrscr;
writeln('BBeDuTe X,  Y, R');
readln(x,y,r);
if (x>r) then writeln('False');
if (x<-r) then writeln('False');
t := sqr(x+1) + sqr(y-1) - r;    z := sqr(x-1) + sqr(y+1) - r;
if t then writeln('False');
readkey;
end.

Ошибка 26,в Паскале-нуб,а сдавать надо)

как исправить?

[Stilet]

Может имеется ввиду:

t := (sqr(x+1) + sqr(y-1)) <= sqr(r);    
z := (sqr(x-1) + sqr(y+1)) <= sqr(r);

Раз уж эти переменки Boolean

[Vaigard]

В общем, ошибка в том, что ты пытаешься занести числовые значения в логические переменные. Так просто ты это не сделаешь.

[SonicSax]

Stilet,есть они real или integer,то ошибка 40)А так тоже самое)
Vaigard,а что сделать)?

[k0tone]

прикольное название проги!

[Stilet]

а что сделать)?

А что я написал не подходит?

[SonicSax]

Stilet,нет (
k0tone,все так называю)))

[Hacker19_90]

Ну может ваше

t := sqr(x+1) + sqr(y-1) - r;   
 z := sqr(x-1) + sqr(y+1) - r;

заменить на

 if (sqr(x+1) + sqr(y-1)) <= sqr(r) then t := true;
if ((sqr(x-1) + sqr(y+1)) <= sqr(r) then z := true;

[SonicSax]

Hacker19_90. ошибки нету,счас доделаю до ума програму)
Спасибо))