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

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

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.