Дано: x,y,z. Вычислить количество чисел, кратных 5. Составить БСА и текст программы.

var x,y,z:integer; n,m,k:word; begin readln(x,y,z); if x mod 5 =0 then n:=1; if x mod 5<>0 then n:=0; if y mod 5 = 0 then begin m:=1; m:=n+m; end; if y mod 5 <> 0 then begin m:=0; m:=n+m; end; if z mod 5 =0 then begin k:=1; k:=k+m; end; if z mod 5 <> 0 then begin k:=0; k:=k+m; end; writeln(k); end.