Всем привет!
"Заправлены в планшеты космические карты... " 

batollo, я так понял, что это написанная прграммка. А что она "умеет делать"?

Она умеет выводить все числа от введенного N до 1.

Например, пользователь вводит 10, программа выводит: 9 8 7 6 5 4 3 2 1

А если пользователь ввел слово или букву или отрицательное число - программа просит его ввести число еще раз.

Вот усовершенствованный листинг:

Program lab3;
{User enters some value and then program prints all numerics under this value}
var
N : integer;
i : integer;
Code: integer;
userprint : string;
label
1;
begin
1: WriteLn('Enter N value from 0 to 32767');
ReadLn(userprint);
Val(userprint, N, Code);
if Code <> 0 then
begin
WriteLn('Error! Try again.');
goto 1;
end;

if N < 0 then
begin
WriteLn('Error! Try again.');
goto 1;
end;

for i := N-1 downto 1 do WriteLn(i);

WriteLn('Enter any char and then press Enter to end problem');
ReadLn;
end.

Вот усовершенствованный листинг:

Кстати, забавный факт. Если бы не было проверки на ввод данных, то программ выглядела бы вот так:

var
i : integer;
begin
ReadLn(i);
for i downto 1 do WriteLn(i);
end.                      

=)

Доброе утро.
 ...MacKenzie... привет, давно тебя не было видно, где пропадал?

...MacKenzie... дарова сокомандник! 

Cosmonaut, доброе утро! 

Я намного чаще присутствую, чем видно по постам. Я отписываюсь теперь редко) Не то что когда-то. 

М-дя... для меня это темный лес.

Я просто сравнил объёмы текста в двух случаях.

Я отписываюсь теперь редко) Не то что когда-то.

А я бы сказал, что теперь намного чаще, чем совсем недавно.

Вам же не кажутся сложными вещи, над которыми вы в свободное время сидите-отдыхаете? =)

Смотря какую сложность ставить...