Program sp;
var
n, x: integer;
1: label;
begin
n:= 13;
label main;
writeln(n);
writeln('Можно взять 1, 2 или 3 спички. Ваш ход');
readln(x);
n := n - x;
if n > 0 then
begin
writeln('Мой ход. Я возьму', 4 - x);
n := n - (4 - x);
end
end
if n <= 0 then
writeln('Вы проиграли!')
else
goto 1;
end
end.
Это каталог, в котором сохраняются адреса ссылок.
Ось:
program Project1;
var a,b,c:longint;
begin
readln(a,b,c);
if (a>b) and (a<c) or (a>c) and (a<b) then writeln(a) else
if (b>a) and (b<c) or (b>c) and (b<a) then writeln(b) else
if (c>b) and (a<b) or (c>a) and (b>c) then writeln(c);
readln;
<span>end.
Не дуже розумію, навіщо ви написали рядок:"</span><span>writeln(maxlongint);</span>". Чи це залишилося від перевірки числового інтервалу даного типу?