Var x,s:integer;
begin
readln(x);readln(s);
while x<>5 do begin
s:=x;
x:=x+1;
s:=s+x;
end;
writeln(s);writeln(x);
end.
Если будут неправильно то попросите меня исправить
Решение смотри во вложении.
Программа выведет такие значения
8 -2
Uses crt;
var
i: integer;
k: array [1..5] of real;
begin
clrscr;
writeln ('Input array:');
for i:=1 to 5 do
begin
write (i,') ');
readln (k[i]);
end;
writeln ('Your array:');
for i:=1 to 5 do
write (k[i],' ');
readln ();
<span>end.</span>