Турбо паскаль 7 класс:

Введите на экран n раз разными цветами строку 'С Днем Конституции!'

Uses graphABC; var s:string;

begins: = 'С Днем Конституции!';

font. Color:=clred; write (s) ;

font. Color:=clgreen; write (s) ;

font. Color:=clblue; write (s) ; end.

/ / вариант для турбо паскаля но проверить не начем

program mypascal;

uses crt;

begin

writeln ('С Днем Конституции!') ;

textcolor (green) ;

writeln ('С Днем Конституции!') ; end.