Нужно создать программу в ABC Pascal

Задача 1. Дана длина ребра куба а. Найдите объём куба V=a3 и площадь его поверхности S=6a2

Задача 2. Даны 2 числа не равные нулю. Найдите сумму, разность и произведение их модулей.

Var a, V, S:integer;

Begin

writeln ('Enter A:') ;

readln (a) ;

V:=a*3;

S:=6*2*a;

writeln ('V=', V,'; S=', S,'; ') ;

end.

var a, b, sum, dob, raz:integer;

Begin

writeln ('Enter A:') ;

readln (a) ;

writeln ('Enter B:') ;

readln (b) ;

sum:=abs (a) + abs (b) ;

raz:=abs (a) - abs (b) ;

dob:=abs (a) * abs (b) ;

writeln ('Summa=', sum,'; Raznost=', raz,'; Dobutok=', dob,'; ') ;

end.