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

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.