1.Дана длина ребра куба a. Найдите объем куба V = a3 и площадь его поверхности S = 6∗a2
2.Даны длины ребер a, b, c прямоугольного параллелепипеда. Найти его объем V = a∗b∗c и площадь поверхности S = 2∗(a∗b+b∗c+a∗c).
3.Даны три числа a, b и c.Найдите их произведение.
4.Даны три числа a, b и c.Найдите их произведение.
Pascal

Первое задание:

program cube;
    var a,s,v:real;
begin;
    write(Введите длину ребра куба: );
    read(a);
    v:=power(a,3);
    s:=6*sqr(a);
    write(Площадь равна ,s,, а объём равен ,v,.);
end.


Второе задание:

program par;
    var a,b,c,s,v:real;
begin;
    write(Введите стороны a,b,c: );
    read(a,b,c);
    v:=a*b*c;
    s:=2*(a*b+b*c+a*c);
    write(Площадь равна ,s,, а объём равен ,v,.);
end.



Третье и четвёртое задания:

program mult;
    var r,a,b,c:real;
begin;
    write(Введите три числа: );
    read(a,b,c);
    r:=a*b*c;
    write(Произведение чисел равно ,r);
end.