напишите программу которая в последовательности

Ответ от
program atatata;
var i,max1,max2,min1,min2:longint;
begin
read(i);
max1:=i;
max2:=i;
min1:=i;
min2:=i;
while i<>0 do
begin
read(i);
if max1>i then
begin
max2:=max1;
max1:=i;
end else
if max2>i then max2:=i;
if min1<i then
begin
min2:=min1;
min1:=i;
end else
if min2<i then min2:=i;
end;
writeln(max1+max2);
writeln(min1+min2);
end.
Кирилл
Мастер
(1231)
goto лучше не использовать, посмотри как у меня сделано, ты в своем коде что-то намудрил