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

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