Есть прямоугольник, длина и ширина вводятся с клавиатуры, если длина больше то найти площадь прямоугольника, иначе найти периметр, вводится через паскаль

A-длина, b-ширина
var
a,b,x: real;
begin
readln(a,b);
if a>b then x:=a*b
else x:=2*(a+b);
writeln(x);
end.