1)проверка условия и ветвление в алгоритме.напишите программу которая анализирует введённое с клавиатуры число и выдает на экран: а)удвоенное значение числа,если число положительное; б)абсолютное значение числа,если число отрицательное. 2)напишите программу которая анализирует введенное с клавиатуры число на четность и сообщает о результате.
Var x:integer;
Begin
write('x=');
readln(x);
if x>=0 then x:=x*2;
else x:=abs(x);
writeln('Otvet=',x);
readln;
End.