Часы на циферблате: если использовать 24- часовую, то 8+7=15
Var b: integer;
a: boolean;
begin
a:=true;
if a then b:=4
else b:=-4;
writeln(b)
end.
Var a: real;
begin
write ('Введите Вашу температуру: ');
read(a); //Вещественное число вводится через точку
if (a>=36) and (a<=37) then writeln ('Вы здоровы!') else writeln ('Вы больны!');
end.