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.
Может быть, так: 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.