Напишите построчную запись алгоритма нахождения среднего арифметического из трёх введенных на клавиатуре чисел и вывода на экран результата в том случае, если оно будет положительным ( напишите на языке паскаль)

Program Project;
uses crt;
var
  a,b,c: real;
  sa: real;
begin
  clrscr;
  Read(a,b,c);
  Readln;
  sa:=(a+b+c)/3;
  if sa>=0 then
   Writeln(sa:0:5);
  Readln;
end.