С клавиатуры вводится 2 числа,требуется найти квадрат наименьшего из них.

var a1,b1,a,b:integer;beginreadln(a,b);a1:=sqr(a);b1:=sqr(b);if (b1>a1)then write(a1)else write(b1)end.