между числами 6 и 49 разместить 5 чисел на равном расстоянии и вывести весь ряд на экран. Paskal ABC

{a1=6,d=}-комментарий, его не нужно печатать

program z;{a1=6,d=}const n=7;var a:array[1..n] of real;a1,i:integer;d:real;begina1:=6;d:=(49-6)/7;for i:=1 to n do begina[i]:=a1+(i-1)*d;writeln(a[i]:3);end;end.