program 4_29;
var
a,b,ca,cb:integer;
x,y: real;
begin
writeln('Введите два трехзначных числа');
readln(a,b);
ca:=(a div 10) mod 10;
ca:=(b div 10) mod 10;
if (ca mod 2=0) or (cb mod 2=0) then begin
x:=sqr(a);
y:=sqrt(b);
end
else begin
x:=sqrt(a);
y:=sqr(b);
end;
Writeln('Преобразованные числа ',x:6:2,y:6:2);
end;