Решить в паскале (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.

Program z1; var s,i,x,p: integer; begin  s: =0; for i: =-5 to 5 do s: =s+i; writeln('введите целое трехзначное число'); readln(x); p: =(x div 100)*(x div 10 mod 10)*(x mod 10); if s> p then writeln('сумма чисел из диапазона [-5; 5] больше   произведения цифр числа ',x) else if s=p then writeln('сумма чисел из диапазона [-5; 5] равна   произведению цифр числа  ',x) else  writeln('сумма чисел из диапазона [-5; 5] меньше   произведения цифр числа  ',x); end.

// pascalabc.net 3.2, сборка 1407 от 18.03.2017 // внимание! если программа не работает, обновите версию! begin   var a: =matrrandom(20,30,-30,50);   a.println(4); writeln(4*a.colcount*'-');   write('положительных по строкам: ');   a.rows.select(r-> r.where(e-> e> 0).count).println;   write('отрицательных по строкам: ');   a.rows.select(r-> r.where(e-> e< 0).count).println;   write('средние четных по строкам: ');   a.rows.select(x-> x.where(y-> y.iseven).average).       select(avg-> format('{0: f4}',; end.