Вроде циклический:
Вывести столбиком следующие числа: 2,1 ; 2,2 ; 2,3 ; … , 2,8.
Program mas;
const n=5;
var
a:array[1..n] of real;
i:integer;
begin
writeln('Введите элементы массива ');
for i:=1 to n do
readln(a[i]);
for i:=1 to n do
writeln(a[i]);
writeln;
readln;
end.
for i := 21 to 28 do
writeln(i/10:0:1);
i := 2;
while i < 2.8 do begin
i := i + 0.1;
writeln(i:0:1);
end;