Напишите наименьшее число x для которого истинно высказывание не (х< 30) и (х кратно 10)​

program xxx;

var a,s : string;

    i: integer;

begin

    writeln ('введите слово и символ-');

    readln (s,a);

    for i: =1 to length(a) do

        if copy (s,i,1)=a then writeln (i);

    readln

end.

var a: array [1..10] of real;

s,i: integer;

begin

  {vvod tablicy}

  for i : = 1 to 10 do

      if a[i]< > 0 then s: =s+1;

  writeln(s);

end.

сад гад год код кот                        

страус! он бегает со скоростью 80 км/ч