Надо правильное решение 70 паскаль а в с номер 1. даны три числа.если произведение первых двух чисел делится на третье число, то получить среднее арифметическое данных чисел, в противном случае вывести произведение трёх данных чисел. номер 2. даны два числа. если числа не равны, то каждое из чисел увеличить в 2 раза, в противном случае оставить числа без изменения
#1
var res:real; a:integer; b:integer; c:integer;
begin
readln(a);
readln(b);
readln(c);
if (a*b) mod c = 0 then
begin
res:=(a+b+c)/3;
writeln(res);
end
else
begin
res:=a*b*c;
writeln(res);
end;
end.