Помогите с кодом на паскаль.

Question

Помогите с кодом на паскаль.

storme 123 Ученик (183), закрыт 1 год назад

Дано целое число N и вещественные числа a1 и b. Выписать N первых членов арифметической прогрессии.( Использовать можно только ифы и цикл for, в идеале без ифов) объясните пожалуйста, буду благодарен.

Answer 1

Var
i,n:integer;
a1,b:real;
Begin
Write('Введите n: ');
Read(n);
Write('Введите a1: ');
Read(a1);
Write('Введите b: ');
Read(b);
Writeln('Первые ',n,' членов:');
for i:=1 to n do
begin
Write(a1,' ');
a1:=a1+b;
end;
End.