Var ch:char;

const Cr=13;

Begin

repeat

writeln('Введите символ');

readln(ch);

write(ch,'=',ord(ch));

until ord(ch)=Cr;

End.

Оператор цикла repeat повторяет команды тела цикла до тех пор, пока условие, записанное после слова until, не верно.