Question

Дано целое число А. Если значение А<0,то необходимо удвоить его. Написать программу для решения этой задачи.

Answer 1

Var a: integer;
begin
readln (a);
if a<0 then a:=a*2;
writeln (a);
end.