Решение задачи. ПРОГРАММИРОВАНИЕ И АЛГОРИТМИЗАЦИЯ В КОМПЬЮТЕРНЫХ СИСТЕМАХ.

#include <stdio.h>
#include <conio.h>

void main()
{
float x1, x2, x3, max, min;

printf("\n input x1: ");
scanf("%f", &x1);
printf("\n input x2: ");
scanf("%f", &x2);
printf("\n input x3: ");
scanf("%f", &x3);

printf("\n MultiplicationThreeNumber = %f", x1 * x2 * x3);

max = (x1 > x2) ? (x1 > x3) ? x1 : x3 : (x2 > x3) ? x2 : x3;
min = (x1 < x2) ? (x1 < x3) ? x1 : x3 : (x2 < x3) ? x2 : x3;

printf("\n max = %f", max);
printf("\n min = %f", min);
printf("\n MultiplicationMinMax = %f", max * min);

int s = 0;
for (int a = 20; a < 41; a++)
s += a * a;
printf("\n s = %d", s);

getch();
}

Язык программирования нужно указывать, а не предмет!
Вот на Паскале:
1)
var N1, N2, N3 : Integer;
begin
Write('Введите 1 число: '); ReadLn(N1);
Write('Введите 2 число: '); ReadLn(N2);
Write('Введите 3 число: '); ReadLn(N3);
WriteLn('Произведение равно: ', N1*N2*N3);
end.

2) Чтобы легче было найти большее и меньшее из набора чисел,
нужно их упорядочить в порядке неубывания.
Тогда меньшее будет стоять первым в последовательности,
а большее − последним.
procedure Swap(var A, B : Integer); begin A := A + B; B := A - B; A := A - B; end;
var N1, N2, N3 : Integer;
begin
Write('Введите 1 число: '); ReadLn(N1);
Write('Введите 2 число: '); ReadLn(N2);
Write('Введите 3 число: '); ReadLn(N3);
if N1 > N2 then Swap(N1, N2);
if N2 > N3 then Swap(N2, N3);
if N1 > N2 then Swap(N1, N2);
WriteLn('Произведение большего и меньшего равно: ', N1*N2);
end.

3)
var N, S : Word;
begin
S := 0; for N := 20 to 40 do S := S + N*N;
WriteLn('Сумма равна: ', S);
end.

Рабочие фрагменты программ:

1) r = a*b*c;

2) r :=a*c;
if ((a>b) and (b>c) ) then r := a*c;
if ((a>b) and (b<c)>c) then r := a*b
else r := c*b;
if ((a<b)>c) ) then if (a>c) then r := b*c
else r := b*a;
(можно описать оптимальнее, но будет хуже читаться)

3) s := 0;
for i := 20 to 40 do s := s + i*i;

задание конкретнее