Question

Помогите программа Pascal abc

Answer 1

Program n1;
var x: integer;
begin
readln(x);
if x<0 then writeln('отрицательное') else if x>0 then writeln('положительное');
if x=35 then x:=71 else if x<35 then x:=x-23;
write(x);
end.

Answer 2

program limon4ick228;
var num:integer;
begin
writeln('Введите число');
readln(num);
if num>0 then
writeln('Число положительное')
else
writeln('Число отрицательное');
if num=35 then
num:=71;
if num<35 then
num:=num-23;
writeln(num);
end.