Обычная задача для Паскаля: читаем три числа, считаем сумму и произведение, выводим результат. Ниже два варианта — для целых и для вещественных (дробных) чисел.

Вариант 1: целые числа (Integer)

pascal
Копировать код
program SumAndProductInt;
var
  a, b, c: LongInt;
  sum, prod: Int64;
begin
  Write('Введите три целых числа через пробел: ');
  ReadLn(a, b, c);
  sum  := a + b + c;
  prod := Int64(a) * b * c;  { приводим к Int64, чтобы не переполнить }
  WriteLn('Сумма = ', sum);
  WriteLn('Произведение = ', prod);
end.

Пример:

makefile
Копировать код
Ввод: 2 5 -3
Вывод:
Сумма = 4
Произведение = -30

Вариант 2: вещественные числа (Real/Extended)

pascal
Копировать код
program SumAndProductReal;
var
  a, b, c: Extended;   { подойдет для Free Pascal / PascalABC.NET }
  sum, prod: Extended;
begin
  Write('Введите три числа (можно с точкой) через пробел: ');
  ReadLn(a, b, c);
  sum  := a + b + c;
  prod := a * b * c;
  WriteLn('Сумма = ', sum:0:6);        { выводим 6 знаков после запятой }
  WriteLn('Произведение = ', prod:0:6);
end.

Пример:

makefile
Копировать код
Ввод: 1.2 0.5 -4
Вывод:
Сумма = -2.300000
Произведение = -2.400000

Мини-пояснения:

• ReadLn(a, b, c); — позволяет ввести три числа в одной строке, разделённые пробелами.

• Для целых удобно считать произведение в типе Int64, чтобы уменьшить риск переполнения.

• Для вещественных в WriteLn формат :0:6 задаёт количество знаков после запятой (можно изменить).