zadach17.PAS

{* Задача 17 *}

Unit ZADACH17;
Interface
Implementation
Begin
 writeln('

Расположить текст «Системы» в 5 строк по 4 слова в каждой строке. Использовать разные цвета.

Системы Системы Системы Системы

Системы Системы Системы Системы

Системы Системы Системы Системы

Системы Системы Системы Системы

'
);
End.

Program zadach17;

Uses zadach17.pas; {* Эту строку можно удалить *}
Uses crt; {* Вызов внешних функций *}
Var {* В работе нам потребуются переменные: *}
  x0 : integer;
  y0 : integer;
  i  : integer;
  j  : integer;
Begin
  textbackground (white);
  clrscr; {* Очищаем экран *}
  x0 := 1;
  y0 := 1;
  For j := 1 To 4 Do {* Увеличиваем j от 1 до 4 с шагом 1 *}
  Begin
    For i := 1 To 5 Do {* Переменная i увеличивается с 1 до 5 *}
    Begin
      textcolor(i); {* Установить  цвет текста *}
      gotoxy(x0, y0);
      write ('Системы');
      y0 := y0 + 1;
    End;
    x0 := x0 + 10;
    y0 := 1;
  End;
  
End.