Дано: 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 50 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.