Напечатать числа следующим образом 25 25.5 24.8 26 26.5 25.8 . . . 35 35.5 34.8 В ПАСКАЛЕ

Заметно,что ряд чисел условно можно разбить на группы по три числа в группе. Первые числа в таких группах представляют собой ряд целых чисел от 25 до 35. После каждого целого числа следует одно число,которое больше первого на 0,5 и число меньше первого на 0,2.

program number;beginfor i:integer:=25 to 35 do write(i:3, i+0.5:5:1, i-0.2:5:1);end.