Анаписать программу, которая выводит на экран четверостишье: буря мглою небо кроет, вихри снежные крутя. то как зверь она завоет, то заплачет как дитя.

Йоу, все просто, смотри:
Program q;
begin
Writeln('Буря мглою небо кроет,');
Writeln('Вихри снежные крутя.');
Writeln('То как зверь она завоет,');
Writeln('То заплачет как дитя.');
end.