Question

Пожалуйста помогите с заданиями на левой стороне доски. Пожалуйстаа

Answer 1

1. 
var i,k,n:integer;
begin
read (n);
k:=0;
for i:=1 to n do
begin
if i mod 5 = 0 then k:=k+1;
end;
write(k);
end.

Answer 2

спасибо большое