Решить в паскале задачу (8-9 класс) :

дано четырехзначное число. определить, входят ли в него цифры 2 или 7

program test;

var x, temp: integer; flag: boolean;

begin

write ('Введите целое четырёхзначное число: ') ;

read (x) ;

flag:=false;

while x 0 do

begin

temp:=x mod 10;

if (temp = 2) or (temp = 7) then

begin

flag:=true;

break;

end;

x:=x div 10;

end;

if flag then

writeln ('2 или 7 входят в число.')

else

writeln ('2 или 7 не входят в число.') ;

end.