Question

Дано целое число если оно положительное прибавить 5 если отрицательное прибавить 11

Answer 1

Program chisla;

Uses Crt;

Var a:integer;

Begin;

Writeln ('Введите любое целое число');

Readln a;

If a>0 then a:=a+5 else a:=a+11;

Writeln ('a=',a);

End