{* Задача 278 *}

Unit ZADACH278;
Interface
Implementation
Begin
 writeln('Выписать столбиком следующие числа:2, 1; 2, 2; 2, 3; 2, 4; 2, 5; 2, 6; 2, 7; 2, 8; 2, 9. ');
End.

Program zadacha_17;

Uses zadach278.pas; {* Эту строку можно удалить *}
Uses crt; {* Подключение модулей *}
Var {* Объявление переменных *}
  i : integer;
Begin
  clrscr; {* Очистка экрана *}
  For i := 21 To 29 Do {* Цикл для i => [21 .. 29] *}
  Begin
    writeln (i / 10 : 5 : 1);
  End;
  readln; {* Приостановка программы. Ожидание Enter *}
End.