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

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.