Массив X = [4 3 2 1 5]
обработан с цикла
for i:=1 to 5 do begin
X[i]:= X[i]+1
end;
Что выведен на экран оператор
write( X[3] );

ответ:(х+6)+7

Объяснение:

потому что мне это уже зодовали

var x,y,nod,nok: longint;

begin

read(x,y);

a: =x; b: =y;

while (a> 0) and (b> 0) do

if a> b then a: =a mod b

else b: =b mod a;

nod: =a+b;

nok: =(x div nod)*y;

write(nok);

end;