Question

Решите 2 задачи по информатике срочно!!

Answer 1

Var x,y:real;
Begin
Writeln('введите число');
Readln(x);
If y=x-2 then x<0;
Writeln('вывод',y);
Readln;
End.