Вот. На фото все видно.
В 3-м примере мы прибавляем тех кто умеет играть только в шашки и только в шахматы и тех, кто играет в шашки и шахматы одновременно
Жилой, есть комнаты, окна, крыша,этажи, стенки, ступеньки, двери
Var
a,b:longint;
begin
readln(a,b);
if sqr(a)>sqr(b) then writeln(a)
else
if sqr(a)<sqr(b) then writeln(b)
else writeln('Квадраты чисел равны')
end.