Составьте программу для решения следующей . введите с клавиатуры три числа: а, в, с. если а> в> c> 0, то замените все числа их квадратами и выведите результаты на экран. если они отрицательны и не равны между собой, то каждое число замените наибольшим из них и выведите результаты. иначе, найдите и выведите их сумму.

Var a,b,c,max: real; begin write('введите a, b и c: '); readln(a,b,c); if (a> b) and (b> c) then   begin   a: =a*a;   b: =b*b;   c: =c*c;   writeln('a=',a,', b=',b,', c=',c);   end   else if (a< 0) and (b< 0) and (c< 0) and (a< > b) and (a< > c) and (b< > c) then     begin     max: =a;     if b> max then max: =b;     if c> max then max: =c;     a: =max;     b: =max;     c: =max;     writeln('a=',a,', b=',b,', c=',c);     end     else writeln(a+b+c); end.

Vb.       dim a() as integer         randomize()         dim k as integer         dim i as integer         i = rnd() * 100 + 1         redim a(i)         for k = 0 to i             a(k) = rnd() * -1000 + 500         next         dim inta, intb as integer         inta = inputbox("введите начало интервала")         intb = inputbox("введите конец интервала")         dim r, q, s as integer         r = 0         for i = 1 to ubound(a)             if a(i) < a(r) then r = i             if a(i) mod 2 < > 0 then q = q + a(i) '   c2fbefeeebede8eb3a20caf3eff0e8ffedeee220c42ec52e2028632920442d6d6f6e3535             if a(i) > inta and a(i) < intb then s = s + 1         next         msgbox("t=r/q+1+s = " & a(r) / q + 1 + s)

Vb.       dim a() as integer         randomize()         dim k as integer         dim i as integer         i = rnd() * 100 + 1         redim a(i)         for k = 0 to i             a(k) = rnd() * -1000 + 500         next         dim inta, intb as integer         inta = inputbox("введите начало интервала")         intb = inputbox("введите конец интервала")         dim r, q, s as integer         r = 0         for i = 1 to ubound(a)             if a(i) < a(r) then r = i             if a(i) mod 2 < > 0 then q = q + a(i) '   c2fbefeeebede8eb3a20caf3eff0e8ffedeee220c42ec52e2028632920442d6d6f6e3535             if a(i) > inta and a(i) < intb then s = s + 1         next         msgbox("t=r/q+1+s = " & a(r) / q + 1 + s)