Написать программу которая выведет на экран все 3 х значные числа, содержащие…

vara: string; i,j: integer; check: boolean; beginreadln (a); for i: =1 to length (a) dobeginif (a[i]='7') thenfor j: =1 to length (a) doif (a[j]='9') then check: =true; end; if (check) then writeln (a); writeln; end.