1)Проверка условия и ветвление в алгоритме.Напишите программу которая анализирует введённое с клавиатуры число и выдает на экран: а)удвоенное значение числа,если число положительное; б)абсолютное значение числа,если число отрицательное.
2)Напишите программу которая анализирует введенное с клавиатуры число на четность и сообщает о результате.

Блин, второй не добавил...Var x:integer;Begin write('x='); readln(x); if (x mod 2)=0 then writeln('Четное'); else writeln('Нечетное'); readln;End.

1)Var x:integer;Begin write('x='); readln(x); if x>=0 then x:=x*2;  else x:=abs(x); writeln('Otvet=',x); readln;End.