Домашнее задание №18 на 12.04.2016

VAR
 S,a,b,c:integer;
begin
  writeln('Найдем произведение трех чисел');
  writeln('Введите числа:');
  readln(a);
  readln(b);
  readln(c);
  S:=a*b*c;
  writeln('Ответ =',S);
  readln;
end.

Вывод:
Найдем произведение трех чисел
Введите числа:
2
3
6
Ответ =36