Question

Дано целое число. Если оно является положительным, то удвоить его; если отрицательным, то вычесть из него 2; если нулевым, то заменить его на 10. Вывести полученное число.

Answer 1

Var a: Integer;
begin
writeln('Введите число');
readln(a);
if a>0 then a:=a*a;
if a<0 then a:=a-2;
if a=0 then a:=10;
writeln('Полученное число: ',a);
end.