ПОЖАЛУЙСТА, Очень надо! Нифига не получается (в инфе чайник) !
file:///C:/Users/bituz/Downloads/Kontrolnaya_rabota_1.pdf
35 Вариант 1 и 2 задание!! !
ЗАРАНЕЕ ОГРОМНЕЙШОЕ СПАСИБО!
Вот решение:
Program ex1;
Uses crt;
Var
x,y:real;
f:byte;
Begin
clrscr;
write('x=');readln(x);
write('y=');readln(y);
if (x>=0) and (y>=0) then f:=1 else f:=0;
write('F=',f);
End.
Судя по тому, как ты файлы прикрепляешь, действительно, "чайник" 
информационные алгоритмы строяться на углубленных первоначальных знаниях, при их отсутствии решение приобретёт двусмысленный ответ(( сожалею(((
Залей задачу нормально или вообще перепиши
Основы любого алгоритма - это выражение, условие, цикл
⇢