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. 
Думаю так.не судите если не так:(
Ну а блок-схему сами..