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

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 54a = 3  b = 2916a b через пробел: 24 16a = 576  b = 4