Составить линейный алгоритм. дано три числа. найти их среднее арифметическое.

Var
 a,b,c,rez:real;
begin
writeln('Введите число а:');
readln(a);
writeln('Введите число b:');
readln(b);
writeln('Введите число c:');
readln(c);
rez:=(a+b+c)/3;
write('Среднее арифметическое :');
writeln(rez);
end.