program sochan;

uses crt;

var n,i,d:integer;

begin

     write('Nhap n: ');   readln(n);

     write('20 so chan tiep theo la: ');

     d:=0;   i:=n+1;

     while d<=20 do

          begin

               if i mod 2=0 then

                    begin

                         d:=d+1;

                         write(i,' ');

                    end;

               i:=i+1;

          end;

     readln;

end.

uses crt;

var n,d,i,t,max,x:longint;

y:integer;

st:string;

begin

clrscr;

repeat

write('Nhap n='); readln(n);

until n>0;

str(n,st);

d:=length(st);

writeln('So chu so cua ',n,' la: ',d);

t:=0;

max:=0;

for i:=1 to d do 

  begin

val(st[i],x,y);

t:=t+x;

if max<x then max:=x;

end;

writeln('Tong cac chu so cua ',n,' la: ',t);

writeln('Chu so lon nhat cua ',n,' la: ',max);

readln;

end.