zmayz Var
d,c:integer;
Begin
c:=1;
Writeln('В 1 день количество заболевших составляет 1');
for d:=2 to 5 do begin
c:=c+c*3;
Writeln('В ', d , ' день количество заболевших составляет ', c );
end;
end.