Введите числа А,В,С. Если А и С кратны 5, а В- не кратно, то все числа замените их квадратами. Если только В кратно 5, то увеличьте все числа на 10. Иначе, найдите их среднеарифметическое.

Program srednee;
var
  a, b, c:integer;
  sa:real;
begin
write (Введите а=); readln (a);
write (Введите b=); readln (b);
write (Введите c=); readln (c);
if (a mod 5 = 0) and (b mod 5 <> 0) and (c mod 5 = 0) then
  begin
          a:= sqr(a); writeln (Квадрат а=, a);
          b:= sqr(b); writeln (Квадрат b=, b);
          c:= sqr(c); writeln (Квадрат c=, c);
  end else begin
      if (a mod 5 <> 0) and (b mod 5 = 0) and (c mod 5 <> 0) then
        begin
          a:= a+10; writeln (а+10=, a);
          b:= b+10; writeln (b+10=, b);
          c:= c+10; writeln (c+10=, c);
        end else begin
          sa:=(a+b+c)/3;
          write (Среднее арифметическое =, sa);
          end
      end
end.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.