Уақыт форматтары. сізге екі уақыт моменті берілген. екеуі де бір күннің уақыттары, екеуі екі түрлі және екеуіде бір сағаттан жазылып алынған. қолданылған сағат қандай форматта жұмыс жасауы мүмкін екенін табыңыз. егер "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.