Var f:text;
A:Array[1..100] of integer;
n,i,k:integer;
Begin
        Clrscr;
        assign(f,'d:\nhap\bt5in.txt');reset(f);
        readln(f,n);
        for i:=1 to n do readln(f,A[i]);
Begin
        for i:=2 to n do if A[i]=2 then
Begin
        for k:=2 to n do A[k]:=A[k+1];
        n:=n-1;
end;
        Assign(f,'d:\nhap\bt5out.txt');rewrite(f);
        writeln(f,n);
        for i:=1 to n do write(f,i:5);
end;
        close(f);
end.

Program baitap;

Uses crt;

Var gio:integer;

Begin

Clrscr;

Write('Nhap so gio:'); Readln(gio);

Writeln('So gio:',gio);

Writeln('So tien ngay lam binh thuong:',gio*15000);

Writeln('So tien ngay lam them:', gio*15000*2);

Readln

End.