Задачи на разветвящиеся алгоритмы

  Ввести число. Если оно неотрицательно, вычесть из него 10, в противном случае прибавить к нему 10.

Program vet1;

Var a:integer;

Begin

 writeln ('Введите значение переменной a');

Readln (a);

If a>0 then a:=a-10 else a:=a+10;

Writeln ('Переменная a = ',a);

 End.

Ввести два числа. Если их произведение отрицательно, умножить его на -2 и вывести на экран, в противном случае увеличить его в 3 раза и вывести на экран.

 Program vet2;

Var a,b,d:integer; 

Begin

writeln ('Введите значение переменных a и b');

Readln (a,b);

 d:=a*b;

 If d<0 then d:=d*(-2) else d:=d*3;

Writeln ('Переменная d = ',d);

End.