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