A.
uses crt;
var a,b,c,m:real;
begin
clrscr;
write('a,b,c= ');readln(a,b,c);
m:=a;
if b>m then m:=b;
if c>m then m:=c;
writeln(m:0:5);
readln;
end.
B.
uses crt;
var t,n,i:longint; a:array[1..1000000]of longint;
begin
clrscr;
write('n=');readln(n);
for i:=1 to n do
begin
write('a[',i,']=');readln(A[i]);
if a[i] mod 2=1 then inc(t,a[i]);
end;
WRITELN(T);
readln;
end.
C.
uses crt;
var n,i:longint; s:real;
begin
clrscr;
write('n=');readln(n);
for i:=1 to n do s:=s+1/i;
writeln(s:0:5);
readln;
end.
