Надрукуйте у рядок 4 перших натуральних числа, що більші за 100 і кратні 25, та знайдіть їх добуток.

program test;

var

i,s,p: integer;

begin

i:=0

s:=99;

while i < 4 do

 begin

 s:=s+1

 if s mod 25 = 0 then

 begin

 writeln(s);

 p:=1*p*s;

 i:=i+1;

 end;

 end;

writeln(p);

end.