Что не так с программой? Pascal

program Hex;
var
n: Integer;
ch: Char;
begin
Write('n - ');
readln(n);
if (n >= 0) and (n <= 15) then
begin
if n < 10 then
ch := chr(ord('0') + n)
else
ch := chr(ord('A') + n - 10);
writeln('n - ',ch)
end
else
writeln('Error!')

end.

15 ноября 2012 Что не так? не правильно установила программу? или она мне не подходит? может как-то не так код запускаю? (открыть с помощью... ) может расширение моей…
15 ноября 2012 Код скинь. Но вначале поставь лучше Pascal ABC, чтобы меньше было проблем с 16-битностью.
CyberForum.ru›Turbo Pascal›thread699057.html копия ещё
2что не так с программой
1 июня 2013 Посмотрите что не так с программой, помогите исправить. ! условие : Обработать матрицу, элементами которой являются случайные значения функции f(x)=x/13; x [-50;75]. Отсортировать по убыванию элементы главной диагонали матрицы S(10,10).
programmersforum.ru›showthread.php… копия ещё
Пишем первую программу в Turbo Pascal 7.0 для Windows 7 Бесплатно
Скачать Pascal ABC 3.0 Бесплатно для Windows 7 Паскаль для начинающих прогр ...… Вот и все. На протяжении изучения Паскаля и создания программ с его помощью вы подробнее ознакомитесь со средой TurboPascal.
soft-major.ru›База знаний›…-v-turbo-pascal-70-dlya… копия ещё

Чушь какая-то.. .

var n,m:longint; s:string;
begin
write('Number? '); readln(m); s:='';
repeat n:=m and 15 +48; if n>57 then n:=n+7;
s:=chr(n)+s; m:=m shr 4 until m=0;
writeln(s); readln
end.

; убери перед элсом.