Hi. Помогите составить блок-схему и код для Pascal, по условию: "Докажите, были ночью заморозки?"

Думаю, речь идет о температуре. Тогда так
program temperatyra;
var
a:real;
Begin
writeln('Какая ночью была температура?');
readln(a);
if a>=0 then
writeln('Заморозков не было')
else
writeln('Были заморозки');
End.