Question

Помогите пожалуйста! Написать программу.
Дано целое число. Если оно является положительным, то прибавить к нему 20, а в противном случае вычесть из него 5.

Answer 1

program HelloWorld;var a:integer;begin    readln(a);    if(a>0) then a:=a+20    else a:=a-5;    writeln(a);end.