порядковый тип паскаль

Ответ от Ice[гуру]
счётчик цикла должен быть целым, т. е. integer

Ответ от Дима мищенко[активный]
program p23;
var
a,x:real;
i:integer;
Begin
a:=1000;
for i:=1 to 12 do
begin
x:=a*0.02;
a:=a+x;
if i<11 then
begin
write('Прирост суммы за месяц ',i);
write(' ----' );
writeln(x);
end;
if i>2 then begin
write('Сумма вклада за месяц ',i);
write(' ----');
writeln(a);
end;
end;
End.

Ответ от 3 ответа[гуру]

Ответ от 3 ответа[гуру]