Var a,b,c:integer;
begin
Readln(a,b,c);
Writeln(max(max(a,b),c));
end.
<span>x.data, x.t, y.data, y.t, z.day, z.month и t соответственно через пробел:</span>
23 10.5 21 10.5 21 11 11
Var
a:array[1..100] of integer;
i:integer;
c,e:real;
begin
for i:=1 to 100 do begin
a[i]:=i;
e:=a[i] div 2;
c:=a[i]/2;
if e=c then
write(a[i],' ');
end;
for i:=100 downto 1 do
begin
a[i]:=i;
e:=a[i] div 2;
c:=a[i]/2;
if e=c then
write(a[i],' ');
end;
<span>end.</span>