Линейный алгоритм. найдите среднее арифметическое d=a+b+c/3 a b c -целые числа, заданны с клавиатуры

Var a,b,c,s:real;
begin
writeln ('Введите a, b, c: ');
readln (a,b,c);
s:=(a+b+c)/3;
writeln ('Их среднее: ',s);
end.