составить программу которая бы выводила различные приветствия из слов:"школа","моя","дорогая","Здравствуй","люблю","тебя","ненавижу","как","я",

Нужно делать на паскале.

Пример :

Program Dialog;

Var a: integer;

        b: string;

begin

Writeln(`Привет! Как тебя

зовут?`)

Readln (b)

Writeln (`Рад с тобой

Познакомиться`, b);

Writeln(` Сколько тебе лет?`);

Readln (a)

Writeln (b,` Тебе `, a, ` лет `);

Readln

end.