С клавиатуры вводится два трехзначных числа. Возвести первое число в квадрат, а из второго извлечь корень, если хотя бы у одного из чисел, средняя цифра четная. В противном случае из первого извлечь корень, а второе возвести в квадрат. Вывести на экран измененные числа.

Var a, b: integer;

begin

write ('a b через пробел: ') ;

readln (a, b) ;

if (((a div 10) mod 10) mod 2 = 0) or

(((b div 10) mod 10) mod 2 = 0) then

begin

a:=a*a; b:=floor (sqrt (b)) ;

end

else

begin

a:=floor (sqrt (a)) ;

b:=b*b;

end;

writeln ('a = ', a,' b = ', b) ;

end.

a b через пробел: 13 54

a = 3 b = 2916

a b через пробел: 24 16

a = 576 b = 4

Var a, b:integer;

a1, b1:real;

begin

write ('a = ') ; readln (a) ;

write ('b = ') ; readln (b) ;

if (a div 10 mod 10 mod 2 = 0) or (b div 10 mod 10 mod 2 = 0) then

begin

a1:=sqr (a) ;

b1:-sqrt (b) ;

end;

else

begin

a1:=sqrt (a) ;

b1:=sqr (b) ;

end;

write (a1,' ', b1) ;

end.