A, b, c = int(input())
v = a * b * c
print(v)
var
a:array[1..100, 1..100] of integer;
n, m, count, i, j, max:integer;
begin
randomize;
write('m = ');
readln(m);
write('n = ');
readln(n);
writeln('Исходный массив :');
for i := 1 to m do
begin
for j := 1 to n do
begin
a[i, j] := random(11);
write(a[i, j], ' ');
end;
writeln;
end;
max := a[1, 1];
for i := 1 to m do
for j := 1 to n do
if a[i, j] > max then
max := a[i, j];
writeln('Max = ', max);
for i := 1 to m do
begin
count := 0;
for j := 1 to n do
if a[i, j] = max then
inc(count);
writeln('В строке', i ,' находится', count, ' максимальных элементов');
end;
readln;
end.
В клеточку, в линейку, в кружочек(да, такие есть)
1)uses crt;
var a,b:integer;
s:real;
begin
readln(a);
readln(b);
if (a+b>5) then s:=sqrt(a+b) else s:=sqr(a+b);
writeln(s);
end.
2)uses crt;
var a,b,c:integer;
pr:real;
begin
readln(a);
readln(b);
readln(c);
if (abs(a*b*c)>=10) then pr:=(a*b*c)/3 else pr:=(a*b*c)*(a*b*c)*(a*b*c);
writeln(pr);
end.
3)uses crt;
var a,b,sq:integer;
begin
readln(a);
readln(b);
if (a>b) then sq:=sqr(a);
if (b>a) then sq:=sqr(b);
writeln(sq);
end.
4)uses crt;
var a:integer;
begin
readln(a);
if (a<20) and (a>0) then a:=a-4 else a:=abs(a);
writeln(a);
end.