Составить блок-схемуданы 3 числа (любых), программа должна посчитать и вывести кол-во чисел, которые делятся на три

var a,b,c,p: integer;

begin

  readln(a,b,c);

  if a> 0 then begin p: =p*a; writeln(a); end;

  if b> 0 then begin p: =p*b; writeln(b); end;

  if c> 0 then begin p: =p*c; writeln(c); end;

  writeln('произведение: ',p);

end.