<u>// PascalABC.NET 3.3, сборка 1625 от 17.01.2018</u>
<u>// Внимание! Если программа не работает, обновите версию!</u>
begin
var n:=ReadReal('Введите число:');
if n>0 then Writeln('Число положительное')
else if n<0 then Writeln('Число отрицательное');
if n=35 then n:=71
else if n<35 then n-=23;
Writeln('Результат: ',n)
end.
Получится правильный шестиугольник — фигура с 360° : 60° = 6 углами и углом 180° - 60° = 120°.
(Повтори 360 [...] — повторяет 360 раз то, что в скобках, потом в цикле чертит линию длиной 30 и потом поворачивает на 60°).