Mi a megoldás ennek a Pascal feladatnak?

Ilyesmi lesz:

program name;

var h,m,s,h1,m1,s1, mas : integer;

begin

writeln('Elso idopont - ora: ');

readln(h);

writeln('Elso idopont - perc: ');

readln(m);

writeln('Elso idopont - másodperc: ');

readln(s);

writeln('Masodik idopont - ora: ');

readln(h1);

writeln('Masodik idopont - perc: ');

readln(m1);

writeln('Masodik idopont - másodperc: ');

readln(s1);

mas=(h1-h)*60*60+(m1-m)*60+(s1-s)

writeln('A ket idopont kozott ',mas,'masodperc telt el.');

end.

Lassú voltam :).

De azért itt egy picit bonyolultabb megoldás FreePascalban:

program ido;

uses

SysUtils;

var

O1,O2,P1,P2,M1,M2 : word;

T1,T2 : TTimeStamp;

TK: Longint;

begin

repeat

Write('Elso idopont - Ora [0-23] :');

Readln(O1);

until O1 in [0..23];

repeat

Write('Elso idopont - Perc [0-59] :');

Readln(P1);

until P1 in [0..59];

repeat

Write('Elso idopont - Masodperc [0-59] :');

Readln(M1);

until M1 in [0..59];

repeat

Write('Masodik idopont - Ora [0-23] :');

Readln(O2);

until O2 in [0..23];

repeat

Write('Masodik idopont - Perc [0-59] :');

Readln(P2);

until P2 in [0..59];

repeat

Write('Masodik idopont - Masodperc [0-59] :');

Readln(M2);

until M2 in [0..59];

T1:=DateTimeToTimeStamp(EncodeTime(O1,P1,M1,0));

T2:=DateTimeToTimeStamp(EncodeTime(O2,P2,M2,0));

if T1.Time>T2.Time then TK:= T1.Time-T2.Time

else if T2.Time>T1.Time then TK:=T2.Time-T1.Time

else TK:=0;

if TK<>0 then

begin

Writeln('A ket idopont kozott ',Round(TK/1000),' masodperc telt el');

end else writeln('A ket idopont kozott ',TK,' masodperc telt el');

end.