Цикл выполняется 4 раза, почему? program zad2; var c: char; i, n, k: integer; begin for i: =1 to 10 do begin read (c); n: =ord(c); if (n> 64) and (n< 91) then k: =k+1; end; write (k); end.

Program zad2;
Var
 c:char;
i, k:integer;
begin
k:=0;
For i:=1 to 10 do
begin
readln (c);
writeln(ord(c));
If (ord(c)>64) and (ord(c)<91) then
 k:=k+1;
end;
writeln('Results: ', k);
end.