Question

Помогите пожалуйста . Первое попыталась сделать, выдаёт неясную ошибку, а второе вообще не понимаю.
Задание в PascalABC
1. Пользователь вводит два вещественных числа. Если они оба не равны нулю, то найдите сумму их модулей и корень квадратный из их произведения и
выведите их на экран. В противном случае вычислите их сумму и выведите на экран.
2. Пользователь вводит два целых числа. Если большее из них кратно 8, то выведите на экран произведение введенных чисел. В противном случае вычислите сумму их последних цифр и выведите ее на экран.
​

Answer 1

№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.