Программа на языке паскаль сравнить 2 числа а и б если число а>б, то тогда б=а2
если а=б, то без изменений
если а<б, то б=корень а

Program zadanie;
var a,b:real;
beginreadln(a,b);
if (a > b)  then b := sqr(a)else if(a < b) then b:=sqrt(a);
writeln(b);
readln;
end.

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