Question

(20 баллов) Написать программу, запрашивающую натуральное число и выполняющую ввод чисел до тех пор, пока не будет введено введеное число, например: 7
12418627 нашли число!

Answer 1

var a,n:longint;

begin

readln(n);

while(a<>n) do readln(a);

end.