Напишите программу вывода на экран произведение пяти чисел используя цикл for

Program n2;uses crt;var s,z1,z2,z3,z4,z5,i:integer;beginreadln(z1,z2,z3,z4,z5);s:=1;for i:=1 to 100 dos:=z1*z2*z3*z4*z5;writeln(s);end.