Задача по олимпиаде - PascalABC.NET

Формулировка задачи:

Собственно это мой код .
Program Olymp;
var i,h,m,s,h1,m1,s1,hase,min,hou,sec,min1,hou1,sec1 : integer ; //h,s,m для первой прогонки h1,m1,s1 - для второй прогонки hase-case
 
Begin
readln(hase); // значения касе
 
for i := 1 to hase do
BEGIN
readln(h,m,s); // первый прогон
readln(h1,m1,s1); // второй прогон
//подсчет и сравнение
hou:= h*3600;
min:=m*60;
sec:=hou+min+s;
  hou1:=h1*3600;
  min1:=m1*60;
  sec1:=hou1+min1+s1;
 
  if sec=sec1 then
BEGIN
    writeln ('Case',i,': Yes');
    end
    else
    writeln ('Case',i,': No');
 
end;
 
 
end.
<- И он выводит вот так <- А надо вот так Помогите пожалуйста ! Всем заранее спасибо !

Код к задаче: «Задача по олимпиаде - PascalABC.NET»

textual
Program Olymp;
const a:array[boolean] of string[3]=('No ','Yes');
var
  i,h,m,s,h1,m1,s1,hase: integer ;
  b:array[1..5000] of boolean;
Begin
readln(hase); // значения касе
for i := 1 to hase do
BEGIN
  readln(h,m,s); // первый прогон
  readln(h1,m1,s1); // второй прогон
  b[i]:=h*3600+m*60+s=h1*3600+m1*60+s1;
end;
for i := 1 to hase do writeln('Case ',i,':',a[b[i]]);
end.

9   голосов, оценка 4.000 из 5


СОХРАНИТЬ ССЫЛКУ