Запишите с блок-схем пословицу.
Слово-не воробей, вылетит не поймаешь.

Может быть, так:
uses graphABC;
Begin
setfontcolor(clRed);
writeln('Белеет парус одинокой');
setfontcolor(clBlue);
writeln('В тумане моря голубом!..');
setfontcolor(clDarkOrchid);
writeln('Что ищет он в стране далекой?');
setfontcolor(clDeepSkyBlue);
writeln('Что кинул он в краю родном?..');
setfontcolor(clDeepPink);
writeln('Играют волны - ветер свищет,');
setfontcolor(clMagenta);
writeln('И мачта гнётся и скрыпит...');
setfontcolor(clDarkGreen);
writeln('Увы! он счастия не ищет');
setfontcolor(clLime);
writeln('И не от счастия бежит!');
setfontcolor(clBrown);
writeln('Под ним струя светлей лазури,');
setfontcolor(clIndigo);
writeln('Над ним луч солнца золотой...')
End.

Паскаль АВС:

Program  Albinur;
uses crt;
var
  v0,a,t : real;
begin
  writeln('Программа вычисляет скорость объекта при равноускоренном движении');
  writeln(' в заданный момент времени');
  write('Введите начальную скорость в м/с  '); readln(v0);
  write('Введите ускорение в м/с^2  '); readln(a);
  write('Введите время в с  '); readln(t);
  writeln();  writeln();
  writeln('*** Вычисляю... ***');
  writeln();  writeln();
  writeln('Через ',t,' секунд после начала движения скорость объекта будет равна ',v0+a*t,' м/с');
end.