Var a,b,c,x:integer;
begin
readln (a);
readln (b);
readln (c);
x:=a*b*c;
writeln (x);
end.
1) В десятичной:15408324071457
А) A1*A1*A1+A2*A2*A2+A3*A3, где а1,а2,а3 ячейки с а,b,c
var
a: real;
begin
read(a);
writeln((2*a*sin(3*a))/3.5);
end.
Program Division;
var a, b, c, d, m, n, : integer
begin
readln (a, b, c. d);
m:=a*d;
n:=b*c;
write (m, n)
end