Пожалуйста посчитайте решить задачи

1) 
var 
a:integer;
begin 
readln(a); 
if a<0 
then a:=a+100 
else a:=a-50; 
writeln(a);
end.
2) 
var  a,b:integer;
begin 
readln(a,b); 
if a*b<0 
then a:=-2*a 
else a:=a*3; 
writeln(a);
end.
3) 
var  a,b:integer;
begin 
readln(a,b); 
if a>b 
then a:=a-b 
else a:=b-a; 
writeln(a);
end.
4) 
var  a:real;
begin 
readln(a); 
if a<=8 
then a:=a*5 
else a:=a/4; 
writeln(a:0:2);
end.