Var a, i: integer;
begin
read(a);
while(a <> 0) do
begin
for i := 1 to a mod 10 do write('*');
writeln();
a := a div 10;
end;
<span>end.</span>
a = list(map(int, input.split()))
for i in range(len(a)):
a[i] = abs(a[i])
m = max(a)
a.pop(a.index(m))
n = max(a)
print(min(m, n), max(m, n))
Принцип решения в том, чтобы убрать все минусы у чисел, взять максимум, сохранить его и удалить из списка, а затем взять ещё один максимум, потом вывести числа в порядке неубывания.
3..................................................................................
VB.
Dim i As Integer
Dim Massiv() As Integer
For i = 0 To Massiv.Length - 1
Massiv(i) += 4
<span>Next</span>