Помогите с семейным заданием!! Номер 6.50

Необходимо написать программку

в чем сущность задания?

Необходимо написать программу с подмогою оператора цикла

на каком языке программирования? из вас условие необходимо клещами тащить...

На языке pascal.abc

Выделите наихорошим ответом? Я действительно старался. :)

var x,y , i: integer;
var a,b,k : integer;
var an, bn : integer;
answer1, answer2, answer3, answer4 : boolean;

begin
  writeln('Введите натуральное число:');
  readln(x);
  writeln('Введите цифру a:');
  readln(a);
  writeln('Введите цифру b:');
  readln(b);
  writeln('Введите число k:');
  readln(k);
 
 repeat
  y:=x mod 10;
  x:=x div 10;
  i+=1;
  if y = a then an+=1;
  if y = b then bn+=1;
 until x=0;
 
 if angt;0 then answer1:= true;
 if bn=0 then answer2:= true;
 if agt;k then answer3:= true;
 if (angt;0) and (bngt;0) then answer4:= true;
 writeln('а) Определить, есть ли в нем цифра a: ', answer1);
 writeln('б) Правильно ли, что в нем нет числа b: ', answer2);
 writeln('в) Верно ли, что цифра a встечается в нем более k раз: ', answer3);
 writeln('г) Найти, есть ли в нем числа a и b: ', answer4);
end.