Question

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

Answer 1

Var a:integer;
begin
read(a);
if a>=0 then
write(a-8) else
write(a+6);
end.