интересно от рано свършваш годината

деклариране...
type masiv:[1..100] of integer;
var a,b:masiv;

въвеждане:
for x:=1 to 100 do a[x]:=random(700);

нататък опитай сам:
ще трябва да зададеш условие с if then за делението