Кто может виручте!

[Vitalik1]

Пожалоста помогите! Язык Delphi! В задачи должна использоваться подпрограмма-процедура!!!
Составить программу которая выводит на экран фразу "Скоро сессия"
Повторяющийся определенное количество раз.

[Abstraction]

а) Можете ли Вы написать процедуру, котолрая не делает ровным счётом ничего, просто её можно вызвать?
б) Можете ли Вы написать строку кода, котороая при выполнении выведет на экран "Скоро сессия" один раз?

[Vitalik1]

как написать програму чтоб спаршивало сколько раз вивести на екран Скоро сесия!!

[kangreon]

Для ввода используется процедура Read/ReadLn
Для вывода Write/WriteLn

program Project1;

{$APPTYPE CONSOLE}
var
  i: Integer;

procedure WriteMessage(s: string);
begin
  WriteLn(s);
end;

begin
  ReadLn(i);
  for i := 1 to i do
    WriteMessage('Скоро сессия');
  ReadLn;
end.

[Vitalik1]

Огромное спасибо!!

[Vitalik1]

как сделать чтоб виводило несколько вариантов словосочетаний??

[kangreon]

Отправил в ЛС.
Продублирую и тут на всякий

program Project1;

{$APPTYPE CONSOLE}
var
  i: Integer;

const
  Mess: array[0 .. 2] of string = ('Скоро сессия', 'Уже очень скоро', 'Осталось совсем немного');

procedure WriteMessage(k: Integer);
var
  i: Integer;
  arrayLength, arrayPos: Integer;
begin
  arrayPos := 0;
  arrayLength := Length(Mess) - 1;

  for i := 1 to k do
  begin
    Writeln(Mess[arrayPos]);
    Inc(arrayPos);
    if arrayPos > arrayLength then
      arrayPos := 0;
  end;
end;

begin
  ReadLn(i);
  WriteMessage(i);

  ReadLn;
end.

[Vitalik1]

Очень благодарен!!

[iCaesy]

Хорошее задание. =)