Определить время Ci пребывания i-го покупателя в очереди - Delphi - Ответ 347359

write('введите номер',k ,'покупателя');
read(k);

Uses crt;
VAR
t:array[1..100] of integer;
i,k,Ci,n:integer;
begin
CLRSCR;
writeln('сколько у нас клиентов?');
readln(n);
for i:=1 to n do
begin writeln('введите время обслужывания ',i,'-го клиента');
readln(t[i]);
end;
Ci:=0;
writeln('введите номер покупателя до которого мы будем считать');
readln(k);
for i:=1 to k do
begin
Ci:=Ci+t[i];
writeln('время пребывания ',i ,'-го покупателя =',Ci);
end;
readln;
end.

Uses crt;
VAR
t:array[1..100] of integer;
i,k,Ci,n:integer;
begin
CLRSCR;
writeln('сколько у нас клиентов?');
readln(n);
for i:=1 to n do
begin writeln('введите время обслужывания ',i,'-го клиента');
readln(t[i]);
end;
Ci:=0;
writeln('введите номер покупателя для которого мы будем считать');
readln(k);
for i:=1 to k do
begin
Ci:=Ci+t[i];
end;
writeln('время пребывания ',i ,'-го покупателя =',Ci);
readln;
end.