Как найти среднее арифметическое 3 чисел в Паскале???

[bugatti]

Вчера начал изучать программирование, в школе наседают, ничего не объяснют, приходится дотумковать самому...
Ввести три числа, найти их сумму, произведение и среднее арифметическое.
Пример:
Введите три числа:
4 5 7
4+5+7=16
4*5*7=140
(4+5+7)/3=5.33

Я сделал только сумму и произведение:
program qq;
var a, b, c, d, e: integer;
begin
writeln( 'Введите три целых числа' );
read ( a, b, c );
d := a + b + c;
e := a * b * c;
f := ( a + b + c ) / 3 вот тут я так написал???
writeln ( a, '+', b, '+', c, '=', d );
writeln ( a, '*', b, '*', c, '=', e );
writeln ( a, '+', b, '+', c, '/', 3, '=', f ); и вот тут так???
end.

---------- Добавлено в 20:20 ---------- Предыдущее сообщение было написано в 20:12 ----------

помогите, срочно надо!!

[sheff-09]

bugatti, не очень разбираюсь в Паскале, но можно, например, так:

program qq;
var a, b, c, d, e, f: integer;
begin
writeln( 'Vvedite 3 chisla' );
read ( a, b, c );
d := a + b + c;
e := a * b * c;
f := ( a + b + c ) div 3;
writeln ( a, '+', b, '+', c, '=', d );
writeln ( a, '*', b, '*', c, '=', e );
writeln ( a, '+', b, '+', c, '/', 3, '=', f );
end.

[Pavlucha]

Сообщение от bugatti

Вчера начал изучать программирование, в школе наседают, ничего не объяснют, приходится дотумковать самому...
Ввести три числа, найти их сумму, произведение и среднее арифметическое.
Пример:
Введите три числа:
4 5 7
4+5+7=16
4*5*7=140
(4+5+7)/3=5.33

Я сделал только сумму и произведение:
program qq;
var a, b, c, d, e: integer;
begin
writeln( 'Введите три целых числа' );
read ( a, b, c );
d := a + b + c;
e := a * b * c;
f := ( a + b + c ) / 3 вот тут я так написал???
writeln ( a, '+', b, '+', c, '=', d );
writeln ( a, '*', b, '*', c, '=', e );
writeln ( a, '+', b, '+', c, '/', 3, '=', f ); и вот тут так???
end.

---------- Добавлено в 20:20 ---------- Предыдущее сообщение было написано в 20:12 ----------

помогите, срочно надо!!

для целочисленного деления применяют функции div и mod
Функция Div выполняет деление,Mod считает остаток от целочисленного деления например:

rez:=4 div 2 {rez=2}
rez:=5 div 2 {rez=2}
rez:=5 mod 2 {rez=1}

И не надо применять такое большое кол-во переменных достаточно 4 например:

...rez:=a+b+c;
writeln(rez);
rez:=a*b*c;
writeln(rez);
rez:=(a+b+c) div 3;
writeln(rez);...

Если интересует паскаль,то советую почитать книгу "Песни о Паскале"
http://oleg-derevenets.narod.ru/oglavlenie/

[Crysis]

мне кажется не все переменные надо определять как Integer, среднее арифметическое надо описать как Real