Question

Дано целое число.Если оно является положительным то прибавить к нему 38;в противном случае не изменять его вывести полученное число

Answer 1

Проверка на остаток от деления (if a mod 2 = 0), если верно, то а+38, если нет - writeln (a) ;