Написать программу на языке паскаль дано целое число если оно является положительным

Содержание

Дано целое число. Если оно является положительным, то прибавить к нему 1, если отрицательным, то вычесть из него 2, если нулевым, то заменить его на 10. Вывести полученное число.

Задача конечно пустяковая, я её решил, но сдаётся мне что это быдлокод и её можно было решить рациональнее, без всяких там меток, но я не додумался, новичок ещё, только учусь программированию)) как её можно решить по-другому? без меток)) хочется сразу с самого начала прививать старание не быдлокодить, выполнять поставленные задачи не абы как, лишь бы работало, а рационально и как можно понятнее остальным)))

var a: integer; label m1; Begin WriteLn (‘Введите число’); ReadLn (a); if a = 0 Then Begin a:=10; WriteLn (a); Goto m1; End; if a>0 Then a:=a+1 Else a:=a-2; WriteLn (a); m1: Readln; End.

Код к задаче: «Дано целое число. Если оно является положительным, то прибавить к нему 1»

Листинг программы

var a: integer; Begin Write(‘Введите число a=’); ReadLn (a); if a = 0 Then a:=10 else if a

Источник: studassistent.ru

Паскаль видео: while в паскале. Найти наибольшее целое число K, такое что 3 в степени K меньше N