Цикл выполняется 4 раза, почему? Program zad2; Var c:char; i, n, k:integer; begin For i:=1 to 10 do begin read (c); n:=ord(c);

После каждого ввода с клавиатуры цикл срабатывает три раза.  После нажатия на клавишу Enter дополнительно к введенному символу автоматически вводятся и обрабатываются символы перевода каретки и конца строки. После замены read(c) на readln(c) программа позволяет ввести 10 символов. Завершается работа программы выводом числа введенных больших латинских букв.  

Можно наблюдать детали работы программы с командой read(с), если ввести дополнительно строки:

write (‘i= ’, i);

writeln(‘ Code – ‘ (n)).

На рисунке http://bit.ly/2GbulpP показан результат ввода символов A, a, B, b.