(20 баллов) Написать программу, запрашивающую натуральное число и выполняющую ввод чисел до тех пор, пока не будет введено введеное число, например: 7 12418627 нашли число!
var a,n:longint;
begin
readln(n);
while(a<>n) do readln(a);
end.
А можно ineger или read?
Да, можно