Question

в Free Pascal'e. нужно записать программу. "Ввести три целых числа с клавиатуры. Найти их произведение, сумму и среднее арифметическое." p.s простите за столько тем, первый раз сдесь..

Answer 1

var a,b,c:integer;
begin
read(a,b,c);
writeln(a*b*c);
writeln(a+b+c);
writeln((a+b+c)/3);
end.