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.
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.