program BankDeposit;

var
deposit, monthlyProfit: real;
month: integer;

begin
deposit := 1000;
month := 1;

while month <= 6 do
begin
deposit := deposit + deposit * 0.02;
month := month + 1;
end;

writeln('Сумма на счете через 6 месяцев: ', deposit:0:2);

deposit := 1000;
month := 1;

while deposit <= 1200 do
begin
deposit := deposit + deposit * 0.02;
month := month + 1;
end;

writeln('Размер вклада превысит 1200 рублей через ', month, ' месяцев');

deposit := 1000;
month := 1;

while deposit <= 50 do
begin
deposit := deposit + deposit * 0.02;
month := month + 1;
end;

writeln('Ежемесячный вклад превысит 50 рублей через ', month, ' месяцев');

end.