Paskal abs решите 1000 если решите скину ссылку на 1000 дано одно число если это число больше 5 заменить его на 0 если нет заменить на 1

Скорее всего, имеется в виду вот это:
var x:integer;
begin
write('x=');readln(x);
if x>5 then x:=0 else x:=1;
writeln('x=',x);
end.