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

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