Question

Вводятся стороны квадратов а1 и а2. Определить, какая сторона больше. Вывести большую сторону на экран.(Написать в паскале)

Answer 1

var a1, a2: real;

begin

   readln(a1, a2);

   if a1 > a2 then writlen(a1) else writeln(a2)

end.