! 1 Дано целое число. Если оно четное, то прибавь к нему 28, если отрицательное – вычти из него 12, если равно 0, то замени на -100

Помогите пожалуйста! 

1) Дано целое число. Если оно четное, то прибавь к нему 28, если отрицательное - вычти из него 12, если равно 0, то замени на -100. Вывести полученное число.

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

Не понимаю программирование... :( 

  • 1)
    var a:integer; 
    begin 
    write('введите число'); 
    read(a); 
    if (a>1) then a:=a+1 else a:=a-2; 
    write(a); 
    end.
    2)
    var a,b:integer; 
    begin 
    readln(a,b); 
    if a*b<0 then writeln(-2*a*b) 
    else writeln(1.5*a*b); 
    end. 
    Думаю так.не судите если не так:(
    Ну а блок-схему сами..

See also: