Нужно создать программу в 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.