Сделать любой цикл, который будет бесконечно выводить цифру "5"

Question

Сделать любой цикл, который будет бесконечно выводить цифру "5"

Comments

Люди, помоогите пожалуйста!!!

Answer 1

Progrm cycle;
var a: integer;
begin
a:=0;
while a=0 do writeln('5');
end.

Comments

правильно конечно, но зачем столько писанины?

Answer 2

Begin
  while 1=1 do
    write(5);
end.

Comments

можно просто писать while true do