Решите , используя язык программирования паскаль: даны три действительных положительных числа. найти среднее арифметическое этих чисел. до завтра надо

Program zadacha;
var a,b,c,s:REAL;
begin
writeln('Enter a,b,c:');
readln(a);
readln(b);
readln(c);
s:=0;
s=(a+b+c)/3;
writeln('Среднее арифметическое', s);
end.