Question

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

Answer 1

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

Answer 2

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

Answer 3

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

Answer 4

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