Используя вложенные циклы, вывести на экран все двухзначные числа содержащие цифру 3 или 7

var
  n,i,k: integer;
begin
  writeln('Двузначные числа, содержащие 3 и(или) 7');
  for i:=10 to 99 do
  begin
    if (i mod 10=3)or(i div 10=7)
      or(i mod 10=3)or(i div 10=3)
        then
        begin
          write(i,'; ');
          k:=k+1;
        end;
  end;
  writeln;
  writeln('Всего ',k,' двузначных чисел содержат 3 и(или) 7');
  readln;
end.

uses crt;
var i,j,k:integer;
    st:string;
begin
k:=0;
for i:=1 to 10 do
begin
readln(st);
if (length(st) = 2) then
for j:=1 to 2 do
if ((st[j] = '3' ) or (st[j] = '7'))  then begin writeln('Удовлетворяет услевию: ', st); k:=k+1; break; end;
end;
writeln('колличество: ', k);
end.

    if (i mod 10=3)or(i div 10=7)
      or(i mod 10=3)or(i div 10=3)

    if (i mod 10=7)or(i div 10=7)
      or(i mod 10=3)or(i div 10=3)

var
  i,j,x,n,k: integer;
begin
  k:=0;
  writeln('Двузначные числа, содержащие 3 и(или) 7');
  for i:=1 to 9 do
    for j:=0 to 9 do
    begin
      x:=i*10+j;
      if (i=3)or(j=3)or(i=7)or(j=7) then 
      begin
        write(x,'; ');
        k:=k+1;
      end;
    end;
  writeln;
  writeln('Всего ',k,' двузначных чисел содержат 3 и(или) 7');
  readln;
end.