РЕШИТЕ ПРОВЕРЮ НА ПРАВИЛЬНОСТЬ

var

 a:array[1..10] of real;

 D:real;

 i,N:integer;

begin

 Write('N:');

 Readln(N);

 Write('A_1:');

 Readln(a[1]);

 Write('D:');

 Readln(D);

 for i:=2 to N do a[i]:=a[1]+(i-1)*D;

 for i:=1 to N do writeln(i,' : ',a[i]);

end.

Объяснение: