Напишите оператор цикла while, который будет выполняться бесконечно
i:=0;
while i <> 0 do
(переменную i больше не трогать!!!)
Напиши всю программу, пожалуйста
Чтобы написать программу, нужно знать что она должна делать... )))