Напечатать числа следующим образом 25 25.5 24.8 26 26.5 25.8 . . 35 35.5 34.8 в паскале

// pascalabc.net 3.1, сборка 1213 от 04.04.2016 var   i: integer; begin   for i: =1 to 11 do writeln(24+i,24.5+i: 5: 1,23.8+i: 5: 1) end. результат выполнения программы: 25 25.5 24.8 26 26.5 25.8 27 27.5 26.8 28 28.5 27.8 29 29.5 28.8 30 30.5 29.8 31 31.5 30.8 32 32.5 31.8 33 33.5 32.8 34 34.5 33.8 35 35.5 34.8

program xxx;

var s : string;

        а : integer;

begin

    writeln ('введите слово-');

    readln (s);

    а: = length(s)

    writeln ('длина слова=', a);

    readln

end.

var

i,n: integer;

begin

read(n);

for i: =0 to 3 do

writeln (4*n-i);

end.