Программа запрашивает 4 числа и проверяет, сколько в них равны 10.
PascalABC

var

   i, kol, ch: longint;

begin

   kol := 0;

   for i := 1 to 4 do  

   begin

       readln(ch);

       if ch = 10 then inc(kol);

   end;

   writeln('Ответ: ', kol);

end.