program szamtani; var a1, d:real; n, i :integer; begin Writeln('Kerem az elso elemet!'); ReadLn(a1); Writeln('Kerem a differenciat!'); ReadLn(d); Writeln('Kerem a kiirando tagok szamat!'); ReadLn(n); for i:=1 to n do write(a1+(i-1)*d:8:2); readln end.