Программа на языке паскаль сравнить 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.