Помогите написать программку (Паскаль), которая посчитает сумму 5 различных чисел, который

program a1;

var

 i,n,s: integer;

begin

 writeln('Введите 5 чисел');

 for i:=1 to 5 do

 begin

   read(n);

   s+=n

 end;

 Writeln(s);

 writeln('Введите 5 чисел');

 s:=0;

 i:=1;

 while ilt;=5 do

 begin

   read(n);

   s+=n;

   i+=1

 end;

 Writeln(s);

 writeln('Введите 5 чисел');

 s:=0;

 i:=0;

 repeat

   i+=1;

   read(n);

   s+=n;

 until i=5;

 Writeln(s)

end.