Информатика составить программу, которая запрашивает температуру на улице (0

Var
x: real;
Begin
writeln('введите температуру');
readln(x);
if x>15 then writeln('тепло') else writeln('холодно');
readln;
End.