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

Var x,y,z: integer; n,m,k: word; beginreadln (x,y,z); if x mod 5=0 thenn: =1; if x mod 5<>0 thenn: =0; if y mod 5=0 then beginm: =1; m: =n+m; end; if y mod 5 <> 0 then beginm: =0; m: =n+m; end; if z mod 5=0 then begink: =1; k: =k+m; end; if z mod 5 <> 0 then begink: =0; k: =k+m; end; writeln (k); end.