исправить цикличную программу так , чтобы она находила произведение трёх чисел. Паскаль

program tt;

uses crt;

var

s, x: real;

i: integer;

s:=1;

i:=1;

while i <= 3 do

       begin

       write ('Введите число ');

       read (x);

       s:=s*x;

       i:=i+1;

       end;

write ('сумма чисел равна ', s);

end.