Вводится текущее время. написать программу, определяющую это время до полудня или после. На языке паскаль.

Var a, b:integer;

begin

writeln ('Введите текущее значение часов в 24-х часовом формате');

readln (a);

writeln ('Введите текущее значение минут');

readln (b);

if (a<12) and (b<=59) then writeln ('время до полудня');

if (a=12) and (b=0) then writeln ('полдень');

if (a>=12) and (b>0) then writeln ('время после полудня');

end.