Решите пожалуйста на Паскале.
На все 3 цикла:
Найти среднее арифметическое десяти введённых чисел.

var

a, b, c: integer;

s: real;

begin

writeln('Введите три числа');

readln(a);

readln(b);

readln(c);

s := (a + b + c) / 3;

writeln('Среднее арифметическое трех введенных чисел равно ', s);

end.