Question

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

Answer 1

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