Дано 30 целых чисел от 1 до 50. Определить, сколько среди них чисел, первая цифра которых 2 — Pascal(Паскаль)

uses crt;
var i,a,k:integer;
 
begin
 clrscr;
 k:=0;
 for i:=1 to n do 
 begin
   read(a);
   if (a < 10) and (a=2)  or (a>=10) and (a div 10 = 2) then inc(k);
 end;
 writeln(k);
 readln;
end.