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

Предыдущий
вопрос Следующий
вопрос

Программа для задачи 1:

program CubeVolumeAndSurfaceArea;
var
a, V, S: real;
begin
write('Введите длину ребра куба: ');
readln(a);
V := a * a * a;
S := 6 * a * a;
writeln('Объём куба: ', V:0:2);
writeln('Площадь поверхности куба: ', S:0:2);
end.

Программа для задачи 2:

program OperationsWithModulus;
var
num1, num2, sum, diff, prod: real;
begin
write('Введите первое число: ');
readln(num1);
write('Введите второе число: ');
readln(num2);
sum := abs(num1) + abs(num2);
diff := abs(num1) - abs(num2);
prod := abs(num1) * abs(num2);
writeln('Сумма модулей: ', sum:0:2);
writeln('Разность модулей: ', diff:0:2);
writeln('Произведение модулей: ', prod:0:2);
end.