Уақыт форматтары. Сізге екі уақыт моменті берілген. Екеуі де бір күннің уақыттары, екеуі екі түрлі және екеуіде бір сағаттан жазылып алынған. Қолданылған сағат қандай форматта жұмыс жасауы мүмкін екенін табыңыз. егер "12 сағаттық формат" болса, онда уақыттарда сағаттың жазылуы үшін 1 мен 12 арасындағы сандар қолданылады. " 24 сағаттық формат" үшін 0 мен 23 арасындағы сандар қолданылады.

program a;

var a,b:real;

n: integer;

begin

repeat

write('Введите число от 0 до 24 два раза xx.xx');

readln(a, b);

n:=0;

if (1<=a) and (a<13) then n:=n+1

else if (0<=a) and (a<=24) then n:=n+2;

if (1<=b) and (b<3) then n:=n+1

else if (0<=b) and (b<=24) then n:=n+2;

if n<2 then write ('12-hour clock')

else if n>2 then write ('24-hour clock');

if n=2 then white ('both');

end.