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

Question

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

---

Answer 1

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