function Aga(num: Integer): Boolean;
var
  s: string;
  l: Integer;
begin
  Result := False;
  s := IntToStr(num);
  l := Length(s);
  if StrToInt(s[l])+StrToInt(s[l-1]) = StrToInt(s[1]) then
    Result := True;
end;