"justify"> writeln;
end else writeln (3);
close (input);
close (output);.
Варіант № 4: ms: array [1 .. 5,1 .. 2] of byte = (
{Ц. } p align="justify"> {S} (2,0),
{Q} (2,3),
{T} (4,0),
{P} (4,5),
{B} (5,0)); ps: array [1 .. 5,1 .. 2] of byte = (
{Ц. } p align="justify"> {S} (1,0),
{Q} (1,0),
{T} (2,0),
{P} (2,0),
{B} (3,0));
num: set of char = ['0 '.. '9'];
ee: boolean = true; s: string;
i, q, oq, ns: byte;
hou, min, sec: word;
assign (input, 'input.txt');
assign (output, 'output.txt');
reset (input);
rewrite (output);
readln (s);
hou: = 0; min: = 0; sec: = 0;
writeln (s); i: = 1; q: = 1;
while (i <= byte (s [0])) and ee do
begin
oq: = q;
if s [i] in num then ns: = 1 else {Визначення}
if s [i] = '.' then ns: = 2 else ns: = 0; {номери символу}
case ps [q, ns] of
1: hou: = hou * 10 + byte (s [i]) -48;
2: min: = min * 10 + byte (s [i]) -48;
3: sec: = sec * 10 + byte (s [i]) -48;
end;
q: = ms [q, ns];
if ns = 0 then
begin
ee: = false;
writeln (1);
end else
if q = 0 then
begin
ee: = false;
writeln (2);
end;
inc (i);
end;
if ee then
if q in [2,4,5] then writeln ('0 '# 13 # 10't =', hou * 3600 + min * 60 + sec)
else writeln ('3 ');
close (input);
close (output);.
Варіант № 5: ms: array [1 .. 4,1 .. 2] of byte = (
{Ц -}
{S} (2,0),
{P} (3,0),
{Z} (3,4),
{Q} (2,0)); ps: array [1 .. 4,1 .. 2] of byte = (
{Ц -}
{S} (1,0),
{P} (1,0),
{Z} (1,2),
