Program abc;
var a, b, c:integer;
Begin
a:=0;
c:=4;
for b:=49 to 215 do
if b/c mod=0 then a:=a+1
write ('Колтчество решений ', a);
end.
(паскаль давно не писал, вроде так)
