Дано целое число.Если оно является положительным то прибавить к нему 38;в противном случае не изменять его вывести полученное число
Проверка на остаток от деления (if a mod 2 = 0), если верно, то а+38, если нет - writeln (a) ;
Здравствуйте можете мне помочь с информатикой