№1
var
a,b : real;
begin
writeln('Введите 2 числа:');
readln(a,b);
if (a<>0) and (b<>0) then begin
writeln('Сумма модулей:', abs(a) + abs(b));
write('Квадратный корень из произведения:', sqrt(a*b));
end
else
write(a+b);
end.
№2
var
a,b,mx : integer;
begin
writeln('Введите 2 числа:');
readln(a,b);
if a > b then //будем считать, что они не могут быть равны
mx := a
else
mx := b;
if mx mod 8 = 0 then
write(a*b)
else
write((a mod 10) + (b mod 10))
end.
