Вопрос пользователя:
Составить программу печатающие числа от -50 до 50 в обратном порядке,увеличивающее каждое число в 10 раз.
Илюха отвечает:
program;
var
max,val: integer;
label
start, ends;
begin
max:=-50;
val:=50;
start:
if val>max then val:=val-10
if val=max then goto ends;
goto start;
ends:
end.