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

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