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

Question

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

Answer 1

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