Введите числа А, В, С. Если А и С кратны 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.