Var b:integer; a:real;
begin
a:=65000;
for b:=2000 to 2010 do
begin
writeln(a:0:0);
a:=a*1.03;
end;
end.
Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.